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ABSTRACT 

Architectures  of  computer  systems  based  on  Data  Flow  (DF)  concepts  attracted 
great  attention  as  an  alternative  to  conventional  sequential  architectures  (Von  Neumann). 
DF  architectures  are  capable  of  efficiently  exploiting  a  massive  amount  of  parallelism 
inherent  in  many  types  of  computation.  They  are  programmed  using  directed  graphs 
whose  vertices  are  function  modules  and  whose  edges  denote  data  dependencies  between 
function  modules.  An  important  subclass  of  DF  is  Large  Grain  Data  Flow  (LGDF)  which 
is  efficiently  used  in  computation  intensive  applications,  such  as  signal  processing.  Pres- 
ently, most  leadoffs  incorporate  nondeterniinistic  run-time  technique  to  allocate  system 
resources  to  support  the  execution  (One  such  technique  could  be  First  Come  First  Served). 
Despite  of  the  usual  simplistic  nature  of  scheduling  techniques  which,  results  in  a  low  run- 
time overhead,  the  system  throughput  and  predictability  could  rapidly  degrade  under  high 
system  load.  To  provide  uniform  output  and  improve  the  resource  usage  even  under  a  high 
load,  a  compile-time  technique  called  Revolving  Cylinder  (RC)  was  introduced.  In  this 
thesis,  we  present  a  LGDF  simulator  and  a  Graph  restructurer  that  restructures  the  given 
graph  according  to  the  RC  technique.  We  then  perform  a  comparative  experimental  study 
of  the  different  implementation  of  RC  and  the  FCFS  scheduling  techniques.  Our  results 
demonstrate  that  there  is  a  high  potential  for  the  RC  technique,  if  a  satisfactory  node  map- 
ping technique  is  developed. 
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I.  INTRODUCTION 


A.     DATA  FLOW  ARCHITECTURES 

The  Data  Flow  (DF)  architecture  is  an  alternative  to  Von  Neumann  architecture  and  is 
capable  of  exploiting  a  massive  amount  of  parallelism  inherent  in  many  types  of 
computation.  In  the  DF  model  of  computation,  a  program  is  represented  by  a  directed  graph 
in  which  the  nodes  denote  operations  and  the  arcs  connecting  them  represent  data 
dependencies.  Nodes  become  ready  when  their  operands  arrive,  thus  computations  are 
data-driven.  The  DF  model  supports  concurrent  execution  of  ready  nodes.  In  this  model, 
execution  of  nodes  is  asynchronous  because  of  its  data-driven  nature.  Also,  computations 
are  free  from  side  effects.  There  is  no  notion  of  shared  data  storage  and  results  are  conveyed 
directly  by  means  of  data  arcs,  [KARP  66].  These  properties  imply  that  multiprocessor 
architectures  based  on  DF  model  need  not  suffer  from  the  synchronization  and  coordination 
overheads  incurred  in  Von  Neumann  architectures. 

Depending  upon  the  chosen  granularity,  DF  architectures  can  be  categorized  in  two 
groups:  Large  Grain  Data  Row  (LGDF)  and  Fine  Grained  Data  Flow  (FGDF) 
architectures.  The  granularity  of  nodes  is  crucial  to  the  effectiveness  of  multiprocessing. 
For  a  given  application,  the  larger  the  node  grain  size,  the  smaller  the  degree  of  parallelism 
that  can  be  exploited.  However,  the  larger  the  grain  size,  the  smaller  the  amount  of 
communication  overhead  that  is  incurred.  Thus,  fine  granularity  does  not  necessarily  imply 
better  performance,  because  it  also  increases  communication  overhead,  which  affects  the 
parallelism  exploited.  The  choice  of  granularity  can  be  influenced  by  software  engineering 
considerations  as  well  as  by  parallel  processing  considerations,  [LEE  89]. 

Real-time  compute-intensive  applications  require  predictable  response  time  and  high 
performance  as  measured  by  throughput.  Satisfying  response  time  and  throughput 
requirements  are  critical  for  the  correct  functioning  real-time  applications.  The 
predictability  of  both  response  time  and  throughput  can  be  influenced  by  resource 


allocation  and  communication  overhead.  Resource  allocation  and  communication 
overhead  can  be  controlled  at  compile-time  and  at  run-time  to  lead  to  high  throughput  and 
deterministic  response  time. 

Based  on  how  a  graph  node  and  arc  attributes  are  used  at  compile-time  and  how  much 
control  information  is  generated  to  aid  the  run-time  mechanism,  DF  scheduling 
implementations  can  be  classified  as  fully  dynamic,  self  timed,  static,  fully  static.  Fully 
dynamic  allocation  performs  all  scheduling  of  nodes  at  run-time  based  on  the  readiness  of 
inputs  and  resource  availability.  In  a  self  timed  allocation  system,  compiler  determines  the 
order  of  the  node  execution  and  allocates  resources,  but  execution  of  the  nodes  is 
determined  at  run-time  by  data  arrival.  Static  node  allocation  involves  the  assignment  of  a 
node  to  a  processor,  but  the  order  of  execution  is  left  up  to  run-time  scheduler  based  on  the 
node's  input  data.  In  fully  static  allocation,  the  compiler  determines  the  exact  execution 
time  assignment,  and  ordering  of  nodes  based  on  that  node's  predicted  behaviour,  [LEE 
90]. 

B.      OBJECTIVES 

First-Come-First-Served  (FCFS)  is  a  scheduling  strategy  where  the  ready  node 
primitives  are  ordered  by  the  time  they  become  ready.  High  system  loads  may  cause 
memory  contention  and  imperfect  computation/communication  overlap  resulting  in  a 
degradation  of  throughput  and  unpredictable  response  time.  The  FCFS  strategy  does  not 
exert  any  run-time  control  to  solve  the  above  mentioned  problem. 

In  this  thesis,  compile-time  analysis  of  LGDF  graphs  is  carried  out  using  the 
Revolving  Cylinder  (RC)  technique.  RC  restructures  the  original  graph  to  obtain  high 
throughput  and  predictable  response  time,  [SLZ  92].  Performance  analysis  of  results 
obtained  by  simulation  is  carried  out  to  compare  merits  of  different  approaches. 

1.     Scope  of  the  Thesis 

In  [LIT  91]  and  [SLZ  92],  the  RC  approach  to  determine  the  node  execution 
sequence  was  first  suggested  to  enhance  the  system  throughput. 


This  thesis  refines  the  RC  approach  and  its  scope  is  analysis  of  previous  work 
[LIT91]  [BELL  92] development  of  an  event  driven  simulator  (PIPDAFS)  for  LGDF 
machines,  and  finally  comparison  of  techniques  for  graph  restructuring  using  the  RC 
approach. 

C.     THESIS  ORGANIZATION 

Chapter  II  reviews  the  RC  approach  and  the  previous  work  accomplished  in  the  area. 
In  Chapter  III,  we  present  PIPDAFS  (Periodic  Inputs  DAta  Flow  Simulator)  and  sample 
runs.In  Chapter  IV,  we  discuss  and  compare  the  graph  restructuring  techniques  and 
analysis  of  the  experimented  results.  In  Chapter  V,  we  conclude  from  the  results  along  with 
suggestion  for  future  work  to  be  done. 


II.  BACKGROUND 


A.     REVOLVING  CYLINDER  ANALYSIS 

The  Revolving  Cylinder  (RC)  technique  for  determining  the  node  execution  sequence 
performs  compile-time  analysis  and  results  in  the  restructuring  of  the  graph,  [LIT  91],  [SLZ 
92].  RC  technique  restructures  the  application,  described  by  a  LGDF  graph  by  using  the 
machine  configuration  and  the  application  graph  as  input. 

The  first  step  towards  restructuring  is  to  layout  the  graph  nodes  in  a  schedule  that 
achieves  some  purpose  (e.g.  no  nodes  reading  or  writing  from  the  same  memory  modules 
at  the  same  time).  The  graphs  that  we  deal  with  are  Directed  Acyclic  Graphs  (DAG).  We 
benefit  from  research  done  on  fine  grained  scheduling  of  parallel  loops. 

Loop  scheduling  literature  [RAU  81]  [HSU  86],  has  dealt  with  the  problem  of 
scheduling  multiple  iterations  of  the  same  parallel  loop  (represented  by  a  DAG)  to  saturate 
the  available  resources.  The  resultant  schedules  possess  a  minimal  initial  cost  for  iterations, 
while  possibly  extending  the  completion  time  of  each  iteration. 

Our  scheduling  technique  can  benefit  from  these  results  by  noting  that  the  real-time 
applications  that  we  deal  with  require  multiple  instantiations  of  a  DAG  each  of  whose 
nodes  is  a  large-grained  primitive.  These  multiple  instantiations  have  similarities  with  the 
execution  of  parallel  iterations  of  a  loop.  Based  on  that,  we  drive  the  following  scheduling 

principle1: 

"The  schedule(s)  providing  the  maximal  throughput  with  minimal  initiation  interval 
for  a  DAG  depend  only  on  the  resource  requirements  of  the  DAG  nodes  and  not  on  the 
topology  of  the  DAG." 


1.  This  principle  can  be  obviously  deduced  from  the  work  of  [RAU  81]  and  [HSU  86]  although  it  was  not 
explicidy  mentioned  there. 


This  principle  simply  states  that  schedules  with  the  same  throughput  can  be  found  for 
different  DAGs  as  long  as  they  have  similar  sets  of  nodes  with  respect  to  the  resource 
requirements.  As  a  result  of  this  principle,  it  might  be  worthwhile  to  reduce  the  DAG  to  be 
scheduled  to  an  equivalent  DAG  with  the  same  set  of  nodes  V  and  an  empty  set  of  edges  E 
before  scheduling  it  as  will  be  shown  below. 

The  following  examples  should  clarify  the  principle: 


Figure  2.1.  Sample  Directed  Acylic  Graphs  (DAG)  (a)DAG  I  (b)DAG  II  (c)DAG  III 


The  DAG  I,  DAG  II  and  DAG  HI  are  three  graphs  with  same  node  requirements  and 
different  edges.  Then  according  to  the  above  principle,  they  can  have  the  same  schedule 
which  produces  the  same  throughput.  Two  example  of  the  many  possible  schedules  for 
these  graphs  are  shown  in  Figure  2.2a  and  Figure  2.2b,  (The  schedules  assume  two 


processors). These  examples  depict  the  node  execution  pattern  that  is  induced  by  a 
schedule.  The  nodes  might  belong  to  different  instances.  The  exact  instance  to  which  a  node 
belongs  depends  on  the  set  of  edges  (that  has  been  ignored  so  far)  are  in  tables  1,2,3.  We 
say  nodes  in  the  schedules  with  the  indices  of  the  instances  they  belong  to.  The  above 
principle  reduces  optimal  throughput  of  a  DAG  scheduling  to  a  bin-packing  problem. 
While  the  set  of  edges  in  a  DAG  has  no  effect  on  the  potential  throughput  of  the  DAG,  it 
will  affect  the  instance  response  time  associated  with  any  schedule. 
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Figure  2.2.  Two  possible  schedules  for  graphs  with  two  processor 
The  schedules  can  be  enforced  as  it  is  depicted  Table  1,  Table2  and  Table  3 

respectively. 

Table  1 :  Compact  Representation  of  the  schedule  I  on  DAG  I 
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Table  2:  Compact  Representation  of  schedule  II  on  DAG  I 
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Table  3:  Compact  Representation  of  schedule  I  on  DAG  III 
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Consider  the  Tables  1  and  2  both  of  which  show  an  indexed  version  of  schedule  I  and 
II  on  DAG  I.  The  corresponding  schedule  of  one  instance  of  DAG  I  using  the  Tables  1  and 
2  are  shown  in  Figure  2.3a  and  Figure  2.3b  respectively.  It  is  clear  that  these  are  different 
schedules  possessing  the  property  that  they  yield  the  same  throughput. 

The  algorithms  for  assigning  indices  to  the  nodes  in  a  schedule  and  to  synchronize  the 
nodes  so  as  to  be  faithful  to  the  schedule  are  the  main  purpose  of  "RC  Scheduling".  These 
algorithms  can  be  found  in,  [SLZ  92]. 

The  name  "Revolving  Cylinder"  reflects  a  way  looking  at  the  schedule  by  wrapping 
the  nodes  around  a  cylinder,  thereby  causing  its  end  to  meet  its  beginning.  For  each  node 
in  the  original  graph,  with  the  top  and  working  toward  the  bottom,  attempt  to  schedule  the 
node  at  its  earliest  start  time  If  it  can  not  be  inserted  at  that  time,  delay  the  start  time  by  the 


width  of  a  slot  and  repeat  until  it  can  be  inserted.  The  earliest  start  time  of  all  descendants 
of  that  node  and  repeat  the  above  sequence  with  the  next  node  as  the  top  node  in  the  graph, 
[LIT  91]  and  [SLZ  92]. 
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Figure  2.3.  Execution  cycles  of  the  schedule  I  and  schedule  II  on  DAG  I 


In  Figure  2.4,  the  execution  of  RC  belonging  to  the  DAG  I  is  shown.  Each  node  of  the 
graph  occupies  a  portion  of  the  cylinder  equal  to  its  execution  time.  And  a  new  instantiation 
could  be  started  every  six  cycles,  when  two  processor  are  used.  Thus  another  instance  of 
the  graph  can  be  overlapped  with  the  first  instance  after  six  cycles.  To  prevent  any  conflict 
on  the  graph  execution  when  instances  are  overlapped,  nodes  are  assigned  indices.  For  the 
example  presented  in  Table  1,  ej  can  not  be  executed  at  the  same  time  as  a^  however,  eg 
can,  [SLZ92]. 
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Figure  2.4.  Execution  of  DAG  I  with  Schedule  I 


B.      IMPLEMENTATION  OF  RC 

Once  all  nodes  have  been  inserted  into  the  cylinder,  then  node  indices  based  on  their 
location  on  the  cylinder  can  be  determined.  Figure  2.5  depicts  the  node  indices  of  DAG  I 
on  schedule  I. 
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Figure  2.5.  Node  indeces  of  DAG  I  with  schedule  I. 

Dependency  arcs  are  created  by  using  these  indices.  The  dependency  arcs  belonging 
to  DAG  I  according  to  the  schedule  I  are  shown  in  Figure  2.6.  Detailed  explanation  of  node 
index  assignment,  and  dependency  arc  creation  is  given  in  Chapter  IV. 
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-igure  2.6.  A  Possible  Restructure  of  DAG  I 
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The  labels  on  each  dependency  arcs  indicates  the  initial  tokens,  threshold  and 
consumed  amount  of  sink  node  respectively. 

C.     POTENTIALS  OF  THE  RC  ANALYSIS 

The  RC  technique  of  restructuring  the  application  provides  an  improvement  that  the 
dependencies  enforce  node  execution  in  order  to  provide  more  throughput  and  predictable 
response  time.  Without  any  extraneous  control  the  FCFS  scheduling  can  provide  uniform 
throughput  The  nodes  receiving  external  data  are  ready  for  execution  independent  of  the 
status  of  other  nodes  in  the  graph.  If  external  data  arrives  more  frequently  than  the 
execution  frequencies  of  the  lower  nodes  of  the  graph,  they  fall  behind  the  upper  nodes  of 
the  graph.  This  results  in  the  upper  nodes  output  queues  going  overcapacity,  preventing 
them  from  entering  the  ready  node  list,  [POPS  90]. 

It  is  possible  to  enforce  the  execution  order  loosely.  Enforcing  the  cylinder  loosely 
would  make  the  system  fully  dynamic  where  the  nodes  are  scheduled  at  run  time  only.  It  is 
preferable  to  run  the  system  in  fully  dynamic  mode.  The  RC  technique  and  subsequent 
restructuring  simply  enhance  the  fully  dynamic  mode. 

It  is  also  possible  to  enforce  the  execution  order  strictly  which  would  make  the  system 
fully  static.  For  each  node  of  the  graph  a  specific  processor  and  exact  time  to  begin 
processing  can  be  given  from  the  cylinder.  This  can  be  enforced  directly  by  the  scheduler 
to  yield  the  fully  static  mode.  But  the  running  the  system  in  the  fully  static  mode  is 
unwarranted.  This  mode  of  operation  can  be  limited  to  the  machines  which  do  not  have  a 
dedicated  run-time  scheduler.  The  failure  of  a  single  processor  will  crash  the  whole  system. 
This  is  unacceptable  in  a  real-time  system.Also  since,  all  processors  are  assumed  to  be 
identical,  it  becomes  unnecessary  to  assign  a  specific  pocessors  to  a  specific  node.  If  a  node 
is  ready  for  execution,  it  can  be  assigned  to  the  first  available  processor.  This  will  reduce 
the  amount  of  time  a  node  waits  for  a  processor  in  the  fully  static  case,  and  provides 
flexibility  and  optimal  utilization  of  system  resources,  [LEE  90]. 
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III.  SIMULATOR 


A.     PROGRAM  MODEL 

The  input  to  Periodic  Input  Processing  DAta  Flow  Simulator  (PIPDAFS)  is  a 
directed  graph.  Nodes  are  the  computation  to  be  performed  on  the  input  data. 

Data  passing  links  between  the  nodes  are  FIFO  queues.  Each  node  reads  data  from  its 
input  queue,  performs  a  nontrivial  computation  and  writes  the  produced  data  to  the  output 
queues.  A  node  is  assured  to  carry  no  history.  An  example  of  a  program  graph  which 
PIPDAFS  will  simulate  is  shown  in  Figure  3.1. 
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(4     J   P4=4 
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Figure  3.1.  Sample  program  graph 

The  functionalities  of  the  nodes  are  not  simulated  in  PIPDAFS,  only  the  resource 
requirements  and  computation  times  are.  For  each  node  and  queue  following  quantities  are 
prespecified  and  is  fixed  across  different  invocation  of  the  graph. 

Node  Execution  Time  (Ej):  It  is  the  execution  time  of  node  i  excluding  any 
communication  and  synchronization  overhead. 

Data  Production  Amount  (Pj):  It  is  the  amount  of  data  that  node  i  produces  to  its 
output  queues  for  every  invocation. 
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Data  Consumption  Amount  (Qj):  It  is  the  amount  data  that  node  i  consumes  from 
its  input  queues  for  each  reading. 

Data  Threshold  Amount  (Rjj):  It  is  the  least  amount  of  data  to  be  present  in  queue 
(i,j),  so  that  node  j  can  start  execution. 

Data  Capacity  Amount  (Cjj):  It  is  the  maximum  amount  of  data  queue  (i,j)  can 

store. 

When  a  source  node  finishes  its  execution,  it  starts  to  write  results  to  the  output 
queues,  output  queues  current  lengths  are  incremented  by  production  amount  of  source 
node.  If  current  length  of  the  queue  is  greater  than  threshold  quantity  then  queue  is  said  to 
be  over_threshold.  Queues  can  not  be  overcapacity  since  source  nodes  which  will  cause 
overcapacity  can  not  be  ready.  Input  queue  sizes  are  updated  as  soon  as  a  node  consume  its 
data  from  that  queue.  When  data  is  consumed  the  queue  current  lengths  are  decreased  by 
data  consumption  quantity.  Input  data  for  a  node  are  queued  and  consumed  in  FIFO  order. 
Node  production  amount  can  be  different  from  the  consumption  amount  as  it  is  depicted  in 
Figure  3.1.  Queues  do  not  only  communicate  data,  but  also,  they  can  communicate 
synchronization  information. 


E,:  Execution  time  of  node  i 

P,:  Data  Production  Amount  of  node  i 

Q,:  Data  Consumption  Amount  of  node  1 

R^:  Data  Threshold  Amount  of  queue 

from  node  i  to  node  j. 

C  -Data  Capacity  of  the  queue  from 

node  i  to  node  j. 
L,,:  Current  Length  of  queue  from 
node  i  to  node  j 


Figure  3.2.  A  sample  graph  node  with  its  associated  queues. 
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Assuming  the  node  N  in  Figure  3.2  whose  input  queues  are  numbered  from  1  to  n 
and  output  queues  are  numbered  from  1  to  m.Let  us  accurately  describe  the  conditions  in 
which  a  node  can  be  ready  to  be  executed: 

Queue  Current  Length  (Ljj):  Current  length  of  the  queue  (i,j). 

Queue  which  links  node  i  to  node  N,  is  over_threshold  when; 

Ljjsj  >  Rjjsj  for  alii,  1— »n 
Queue  which  links  node  i  to  node  N,  is  overcapacity  when; 

Ljn  >  Cjjvj   for  alii,  1— >n 
When  node  setup  is  completed  each  input  queue  of  the  node  is  consumed. 

Lj^sj  =  Ljjsj  -  Qn   for  all  i,l — >n 
When  a  node  is  executed  each  output  queue  of  the  node  is  written. 

Ljsf j  =  Ln  j  +  Pj     for  all  j,  1  — >m 
A  node  is  ready  to  execution  when  following  conditions  are  satisfied, 
i.)  L  j  v  —  R  ijsr  for  all  i,  1— >n    (All  input  queues  are  over_threshold.) 
ii.)  L  Nj+P  N  —  C  Nj  for  all  j,  1— >m  (  All  output  queues  has  enough  space 
to  store  the  results.) 

iii.)  If  tn  is  the  completion  time  of  nth  instance  of  node  i,  then 

tn+l   >  tn  +  £.  for  ^j  ^  j_^n  ^  no(je  can  nQt  j^g  j-pujitiple  instances 

executing  at  a  time.) 

Input  data  arrival  has  a  periodic  nature.  In  every  period  I/O  processors  execute 
I/O  nodes.  The  I/O  nodes  read  the  raw  data  from  the  external  units  such  as  sensors,  format 
it,  and  forward  it  to  its  output  queues.  If  the  data  arrival  rate  is  higher  than  I/O  node 
execution,  then  there  is  a  chance  of  having  new  data  overwrite  the  old  data  causing  a  data 
loss.  It  is  the  responsibility  of  application  programmer,  to  ensure  the  program  correctness 
by  either  choosing  a  computation  which  is  not  sensitive  to  mild  data  loss  or  by  choosing  an 
appropriate  rate  that  can  be  met  almost  always  by  different  machine  components. 
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B.      MACHINE  MODEL 

The  machine  model  we  assumed  is  based  on  three  functional  components:  the 
Scheduler(SCH),  Processors  (GPs,  IOPs),  Global  Memory  Modules  (GMMs).  As  data  for 
the  nodes  becomes  available,  each  node  must  be  scheduled  to  execute  on  a  processor.  The 
machine  model  can  be  seen  in  Figure  3.3,  and  its  functional  components  are  described 
below  in  details. 


GP 


.Processor  is  free 


GMM 


Queue  overthreshold  .Queue  overcapacity 
Queue  underthreshold,  Queue  under  capacili 


Send  primitive  code 


Output 


IOP 


Figure  3.3.  Machine  model. 


SCH 


Execute  I/O  node 


1.     Processors 

a.    Generic  Processors  (GPs) 

Based  on  the  schedule  signal  a  GP  will  read  the  primitive  code  and  the 
necessary  queue  data  from  the  GMMs  (set-up  stage),  it  will  execute  the  designated 
primitives,  and  write  the  output  queue  data  back  to  the  GMMs. (breakdown  stage).  A 
maximum  of  three  nodes  can  be  associated  with  an  GP  at  any  one  time 
i.)  One  node  being  setup. 
ii.)  One  node  executing. 
iii.)  Another  node  being  broken  down. 
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It  is  important  to  note  that,  if  a  node  is  being  broken  down,  a  node  assigned  to  set 
up  on  the  GP  can  not  start  to  set  up  (although  it  has  been  assigned  to  that  GP). 

Allowing  set  up  and  break  down  to  overlap  with  execution  is  the  main  mechanism 
for  allowing  computation-communication  overlap. 

A  processor  is  said  to  be  free  and  available  for  reassigning  by  the  scheduler,  if  the 
setup  stage  is  not  busy.  Needless  to  say  that  this  concept  of  a  free  processor  is  different  from 
the  classical  definition  of  what  a  free  processor  is.  A  processor  can  still  be  executing  and 
be  considered  free.  The  purpose  of  that  is  to  allow  for  maximum  computation  and 
communication  overlap. 

When  the  data  is  ready  for  an  internal  node,  SCH  sends  a  signal  to  GMM  to  send 
code  to  assigned  GP.  Each  GP  has  a  local  memory  which  capable  of  storing  the  primitive 
code  and  the  input  data.  As  soon  as  GP  acquires  the  code  seeks  input  data  from  GMMs. 
When  a  GP  finishes  node  set  up  informs  the  SCH  that  it  is  free. 

b.    Input/Output  Processors(IOPs) 

Input  nodes  periodically  receive  data  from  the  sensors.  IOPs  execute  the  input 
node  of  DFG  by  formatting  the  raw  data  and  writing  to  their  output  queues.  Output  nodes 
are  also  executed  at  IOPs  and  IOPs  redirect  the  ready  data  to  the  next  stage  in  the  system. 
When  the  data  is  ready  for  input  or  output  nodes,  SCH  sends  a  signal  to  an 
IOP  to  execute  the  specified  input  or  output  node.  IOPs  send  a  signal  to  GMMs  for  writing/ 
reading. 

2.     Global  Memory  Modules(GMMs) 

The  GMMs  provide  the  data  storage  for  the  machine.  These  GMMs  are  different 
from  a  typical  computer  memory,  since  each  is  proactive  (each  has  some  sort  of  a 
processor)  and  operates  independently.  Each  data  queue  is  allocated  to  a  single  GMM  for 
storage.  When  a  GP  starts  node  setup,  input  data  queues  are  consumed.  When  a  GP  finishes 
execution  all  the  output  queues  from  the  completed  node  are  produced  (written)  to  the 
appropriate  GMMs.  After  each  produce  and  consume  queue,  current  lengths  are  updated. 
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GMMs  check  for  over_threshold  or  overcapacity  conditions.  If  GMM  recognize  a  over_ 
threshold  informs  the  scheduler.  When  a  node  is  assigned  to  an  GP,  SCH  instructs  to  GMM 
to  write  primitive  code  to  the  GP's  local  memory.  Upon  receiving  the  primitive  code  by  GP, 
it  asks  appropriate  GMMs  for  input  data.  GMMs  only  communicate  with  one  processor  at 
a  time.  If  there  are  requests  while  GMM  is  busy,  these  requests  are  waited  for  GMM  to  be 
available. 

3.     Scheduler 

In  this  model,  SCH  works  like  a  dispatcher  and  maintains  two  list  one  for  the 
ready  nodes  and  the  other  one  for  processors  which  indicates  the  free  processors.  SCH 
dispatches  the  ready  nodes  to  the  free  processors.  A  node  can  be  in  three  different  state 

i.)  Ready  node;  which  is  waiting  in  the  ready  list  to  be  assigned  to  a  free 
GP  to  be  executed. 

ii.)  Processing  node;  which  is  assigned  to  a  processor  and  is  in  one  of  the  ■ 
setup,  breakdown  or  execution  stages. 

iii.)  Waiting  Node;  which  is  waiting  for  input  data's  being  ready  or  output 
queues  having  enough  space  or  both. 

A  node  becomes  ready,  if  all  of  its  input  queues  are  over  threshold  and  output 
queues  will  not  be  over_  threshold  after  the  node  execution.  When  a  node  becomes  ready, 
it  is  put  into  the  ready  node  list  and  then  SCH  attempts  to  match  a  free  processor  to  a  ready 
node.  When  a  processor  finishes  node  setup  and  start  to  node  execution,  it  is  indicated  as 
free  processor,  and  SCH  checks  the  ready  node  list,  if  ready  node  list  is  not  empty  then 
attempts  to  match  a  ready  node  to  the  free  processor. 

We  assume  that  SCH  runs  on  a  dedicated  processor.1 


1.  Alternatively  Scheduler  could  be  made  to  run  on  a  CP  with  a  high  priority. 
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C.     SIMULATOR  DESCRIPTION 

PIPDAFS  is  an  event  driven  simulator,  events  are  stored  in  a  queue  which  is 
prioritized  by  their  time  stamps.  The  simulation  terminates  when  a  certain  number  of 
instances  (prespecified  by  the  user)  has  been  executed.  The  event  queue  is  first  initialized 
with  events  denoting  readiness  of  the  input  nodes,  then  the  rest  of  the  events  are  produced 
from  these  initial  events.  An  instance  is  counted  as  started  when  one  of  the  input  nodes 
belonging  to  that  instance  has  started  to  setup.  An  instance  is  counted  as  completed,  when 
all  of  the  output  nodes  belonging  to  that  instance  have  finished  breakdown.  The  events  that 
may  occur  during  the  simulation  are  shown  in  Figure  3.4.  In  Figure  3.4  simulation  starts 
from  the  reach_producton_event  and  terminates  with  finish_breakdown  event. The  events 
are; 

1)  Reach  production  _period\  This  event  is  produced  periodically  by  the  external 
input  data  and  if  the  output  queues  of  input  node  has  enough  space,  makes  the  input  nodes 
ready  to  execute.  This  event  produces  the  Inputqueuesoverthreshold  and  the 
Reach_production_period  events. 

2)  Inputqueuesoverthreshold:  This  event  indicates  that  all  input  queues  of  a  node 
are  over_threshold.  In  other  words,  input  data  is  available  for  node  execution.  While 
processing  this  event  output  queues  are  checked  whether  they  enough  space  to  store  the 
results  or  node  is  an  output  node.  If  the  output  queues  have  space  or  the  node  is  an  output 
node  then  the  Ready jnode  event  is  produced  to  indicate  that  node  is  ready  to  be  executed. 

3)  Ready  jnode:  This  event  indicates  that  node  is  ready  to  be  executed  and  can  be 
put  into  the  ready  node  list  and  be  scheduled  to  a  free  processor.  If  a  previous  instance  of 
the  ready  node  is  currently  executing  then  according  to  the  policy  (defined  by  the  user 
before  simulation)  ready  node  may  be  put  into  the  ready  node  list,  but  not  executed  until 
previous  instance  has  been  completed  or  ready  node  not  even  put  into  the  ready  node  list. 
For  each  ready  node  added  the  Schedule  _a_nodejfrom_ready_list  event  is  produced. 
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Figure  3.4.  Events  that  are  produced  during  the  simulation 


19 


4)  Schedule _a_nodejfrom_ready_list:  If  both  the  free  processor  list  and  the 
ready  node  list  were  not  empty.  This  event  attempts  to  match  a  ready  node  to  a  free 
processor.  If  the  attempt  is  successful,  it  produces  Start_setup  event. 

5)  Startjsetup:  This  event  is  produced,  when  a  ready  node  matches  to  free 
processor  successfully.  If  the  node  is  the  first  input  node  of  a  new  instance,  then  it  will 
indicate  the  time  for  a  new  instance  start. 

6)  Start jreading instruction _str -earn:  This  event  keeps  trying  to  read  the 
instruction  stream  until  the  memory  module,  where  instructions  are  stored  is  not  busy. 
Then  it  marks  the  memory  module  as  busy  and  produces  the 
Finish_reading_instruction_stream  event. 

7)  Finish_reading_instruction_stream:This  event  marks  a  memory  module  as 
not  busy  and  for  each  input  queues  of  the  node  whose  instruction  stream  was  accessed,  the 
Start jreadqueue  event  is  produced. 

8)  Start jreadqueue:  This  event  keeps  checking  a  memory  module  and  assigned 
processor  until  memory  module  is  not  busy  and  processor  is  not  reading,  then  the 
Finish _reading  event  is  produced.  Reading  is  simulated  by  time  delay. 

9)  Finish  jreading:  This  event  completes  the  reading  of  the  queue.  If  it  is  the  last 
queue  which  is  to  be  read,  then  Finishjsetup  event  is  produced. 

10)  Finishjsetup:  If  processor  is  not  executing  and  breakdown  stage  is  not  busy, 
setup  can  be  finished.  When  setup  is  finished,  Free  processor  and  Start _execution  events 
are  produced.  Otherwise  finish_setup  event  is  reentered  with  a  new  time  stamp. 
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//)  Free  processor:  This  event  indicates  that  processor  is  free  and  produces  the 
Schedule  jajnodej'romjreadyjist  event  is  produced. 

12)  Start _execution:T\\\s  event  produces  Finish _execution  event. 

13)  Finish  jexecution:  If  breakdown  and  setup  stages  are  not  busy,  then  produces 
the  Startjbreakdown  event  else  checks  whether  setup  stage  is  waiting  for  execution  to 
finish  or  not.  When  setup  stage  is  waiting  for  execution  to  finish,  Finish  jexecution  event 
is  produced  in  order  to  prevent  deadlock.If  neither  setup  stage  is  waiting  for  execution  stage 
nor  setup  and  breakdown  stages  were  not  ready  then  Finish  jexecution  event  reentered 
with  a  new  time  stamp. 

14)  startjbreakdown:  This  event  produces  Start_write jqueue  event  for  each 
output  queue  and  indicate  the  assigned  processor  as  not  free.  Since  setup  and  breakdown 
can  not  happen  concurrently  in  this  model. 

15)  Start_write jqueue:  If  memory  module  to  be  written  is  not  currently  busy 
and  processor  is  not  currently  writing,  then  the  Finish_writing  event  is  produced  else 
Startjwrite jqueue  is  reentered  with  a  new  time  stamp. 

16)  Finish_writing:  This  event  completes  the  writing  to  the  queue.  If  it  is  the 
last  queue  to  be  written,  produces  the  Finish Jbreakdown  event.  Updates  the  output 
queue's,  current  length.  If  queue  length  is  overjhreshold  produce  the 
Queue  joverthreshold  event. 

17)  Finish_breakdown:This  event  completes  the  breakdown.  If  the  node 
completed  is  the  last  output  node  of  that  instance,  it  is  assumed  that  an  instance  is  finished 
and  instance  finish  time  is  written  a  file  namely  endtimes. 
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18)  Queues joverthreshold:  This  event  checks  the  all  input  queues  whether  all  are 
over_threshold  or  not.  If  all  are  over_threshold,  then  the  Inputqueuesoverthreshold  event  is 
produced. 

19)  Free  scheduler.  This  event  marks  the  scheduler  as  not  busy  and  produces 
Schedule _a_nodeJ'romjready_list  event.  Scheduling  time  can  be  defined  by  the  user.  This  is 
useful  in  runs  when  the  overhead  of  scheduling  is  a  problem  research. 

D.  SIMULATOR  PROGRAM  DATA  STRUCTURES 

The  simulator  is  written  in  C++.  Its  data  structure  and  class  dependencies  are  depicted  in 
Figure  3.5.  The  simulator  code  is  given  in  Appendix  B. 

E.  USER  INTERFACE 

1.     Input 

To  execute  the  simulator  user  simply  invokes  the  executable  version  and  follows  the 
on-screen  prompts.  The  simulator  collects  data  about  machine  from  file  machine. config. 
Graph  data  is  stored  in  the  file  graph.dat.  Also  the  memory  assignments  is  given  in  the  file 
memory.dat.  A  sample  graph  data  and  a  machine  configuration  file  is  given  in  Appendix  A. 

Besides  the  graph  and  the  machine  files,  user  is  prompted  for  the  following  data: 

-  Instance  Start  Number.  The  instance  number  when  information  gathering  is 
started. 

-  Instance  End  Number.  The  instance  number  when  the  simulation  will  be 
completed. 

-  Instance  Overlap:  It  the  amount  of  overlap  between  the  multiple  instances  of 
the  same  node.  It  could  be  none  which  means  while  a  node  instance  is  ready,  another  instance 
of  the  same  node  can  not  be  ready.  Or  it  could  be  overlapped  which  means  multiple  instances 
of  a  node  can  be  ready  in  the  ready  node  list,  but  only  one  of  them  executed  at  a  time. 
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-  Node  Execution  Priority.  It  is  the  priority  for  scheduling  the  nodes  in  the 
ready  node  list.  User  choose  of  the  following: 

Shortest  First  (Execution  time):  Nodes  in  the  ready  node  list  are 
ordered  by  their  execution  times. 

Longest  First  (Length):  Nodes  in  the  ready  node  list  are  ordered  by 
their  length. 

Random:  Node's  priorities  are  defined  by  the  simulator  randomly. 
User  Defined:  Node's  priorities  are  defined  by  the  user. 
No  Priority(FCFS) 

-  Data  Period:  User  may  want  to  repeat  the  simulation  for  different  data 
periods  without  changing  the  other  data.  This  time  in  order  to  prevent,  the  user  from 
reinvoking  the  simulator.  The  initial  data  period  and  final  data  period  with  increment 
amount  is  asked  by  the  simulator. 

Start  Period:  It  is  the  data  period  where  the  simulation  will  start. 

End  Period:  It  is  the  data  period  where  the  simulation  will  finish. 

Interval:  It  is  amount  of  increase  in  the  data  rate  for  after  each  simulation. 

2.     Output 

After  the  simulation  is  completed,  following  data  is  produced: 

-  Processor  Utilization  (Considering  setup  and  breakdown  as  useful 
utilization):  It  is  stored  in  file  utilization.dat. 

-  Processor  Utilization  (Only  execution):  It  is  stored  in  file  execution.dat 

-  Throughput:  It  is  stored  in  file  throughput.dat 

-  Response  Time:  It  is  stored  in  file  resptime.dat 

-  Coefficient  of  Variation:  It  is  ratio  of  instance  length  standard  deviation  to 
the  average  instance  length.  It  is  stored  in  file  Coefvar.dat 
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Files  also  contain  corresponding  normalized  data  rate  values. 

If  the  user  prefer  to  store  the  events  occurring  during  simulation,  a  log  file  can  be 
produced.  Log  file  includes  time,  event  name,  node  number,  queue  number,  memory 
module,  processor  number.  Any  user  who  interested  in  different  kinds  of  statistics  can 
obtain  desired  information  by  filtering  the  log  file. 

F.      EXAMPLE  RUNS  OF  THE  SIMULATOR 

The  graph  depicted  in  Figure  5.1  is  executed  with  simulator.  The  graph  belongs  to  a 
real  application  which  is  called  correlator. 


Input  Node 
FIXFL  1=5000 

T=C=R=  16384 

BAND  1=15000 

T=C=R=  16384 

FIR  1=10000 
T=C=R=4096 
FFT1=  100000  (  7 
T=C=R=4096 

WINDOW1=40000 

T-R-C-4096 


FIXFL2  -  5000 
T=R=C=16384 
B AND2  -  15000 
T=R=C=1<5384 

FIR2  =  10000 

T=R=C=409«5 

ZEROFILL  =  5000 
T=R=C=>4096 

FFT2=  100000 
T=R=C=409S 

WINDOW2  =  40000 
T=R=C=4096 


MULTXY  =  7500 

T=R=C=4096 

INVERSEFFT=  100000  (  15 


EXFAVG  =  5000 


T=R=C=513 


AS  CANOUTs  10000  (\9) 


100000       (  I*  )  POWERY  =  100000 

T=R=C=4 
MULTFWR.SQRT  =  5000 


GRAMOUT  =  10000 


Figure  3.6.  Correlator  graph 
The  results  belonging  to  correlator  graph  are  shown  in  Figure  3.7,  Figure  3.8,  Figure  3.9. 

In  resultant  graph,  X-coordinate  refers  to  the  normalized  data  rate  which  is  the  ratio  of 
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maximum  throughput  rate  to  the  input  data  rate.  Maximum  throughput  rate  means  total 
execution  time  over  number  of  processors.  Y-coordinate  refers  to  throughput,  utilization  or 
coefficient  of  standard  deviation.  Throughput  is  the  number  instances  that  are  executed  in 
unit  time  in  this  simulator  which  one  second.  Utilization  shows  processor  usage  percent, 
obtained  by  dividing  processor  busy  time  to  total  execution  time.  Two  kinds  of  utilization 
is  calculated  for  processors,  one  consider  the  setup  and  breakdown  as  useful  utilization 
and  the  other  one  does  not.  For  each  data  rate  500  instance  were  executed  and  statistical 
result  are  obtained  from  last  300  hundred  instances. 
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higure  3.7.  Correlator  graph,  processor  utilization  with/without  communication. 
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IV.  GRAPH  RESTRUCTURING 

This  chapter  describes  the  graph  restructuring  that  enforces  RC  scheduling  in  detail. 
Also,  it  evaluates  the  potential  of  RC-based  scheduling  techniques  through  a  series  of 
experiments. 


Figure  4. 1  An  example  for  graph  restructuring. 

Figure  4. 1  describes  the  steps  that  are  needed  to  restructure  an  application  graph  and 
make  it  ready  for  execution.The  first  step  in  the  process  is  cylinder  mapping.  At  this  point, 

graph  nodes  are  mapped  to  the  cylinder  according  to  a  given  objective.  The  circumference 


1.  In  the  Figure  4.1b  the  mapping  is  based  on  fitting  the  graph  by  using  the  nodes  in  a  topologically 
sorted  list. 
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of  the  cylinder  is  determined  by  the  sum  of  the  nodes'  execution  times  divided  by  the 
number  of  processors  (an  approximation  which  does  not  consider  the  communication 
delay).  The  mapping  shown  in  Figure  4. 1(b)  assumes  two  processors.  After  the  cylinder  is 
mapped,  the  next  step  is  index  assignment.  In  this  step,  nodes  are  given  relative  indices  that 
clarify  which  node  is  executing  which  relative  instance.  For  example  in  Figure  4. 1  (c),  while 
node  f  is  executing,  node  e  can  execute  one  later  instance.  Indices  are  determined  by  the 
nodes'  locations  on  the  cylinder. Figure  4.1(c)  depicts  the  index  assignment.  After  the 
indices  are  assigned,  the  next  step  is  synchronization  arcs  creation  to  enforce  the  given 
schedule  in  Figure  4.1(c).  Figure  4.1(d)  shows  the  synchronization  arcs.  The 
synchronization  arcs  that  are  obtained  are  pruned  by  removing  the  redundant  arcs.  And  the 
resultant  arcs  are  added  to  the  original  graph.  The  restructured  graph  with  the  added 
synchronization  arcs  is  depicted  in  Figure  4.1(d).  The  program  that  restructures  the  graph 
is  called  Graph  Restructurer  (GR)  and  its  organization  is  represented  in  Figure  4.2.The 
source  code  of  GR  is  given  in  Appendix  C. 


Input  graph 


Machine  Configuration 


Cylinder  Mapping 


%  rMapped  cylinder 


Node  Index 
Assignment 


Cylinder  with  indices 


Creating 
Synchronization  arcs 


Modifv  original 


Dependency  arcs 


lodify  origin* 
graph 


Restructured  Graph 


Figure  4.2.  The  structure  of  the  graph  restructurer. 
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The  GR  basically  has  three  functions,  cylinder  mapping,  index  assignment  and  the 
synchronization  arcs  creation. 

A.     CYLINDER  MAPPING 

The  cylinder  mapping  component  of  the  GR  takes  the  original  graph  and  machine 
configuration  as  input  data.  In  [LIT  91]  and  [BELL  92],  nodes  are  ordered  for  mapping 
according  to  their  execution  times.  The  graph  topology  is  not  considered.  This  produces 
more  dependency  arcs  increasing  the  communication  overhead.  Figure  4.3  represents  the 
dependency  arcs  for  the  same  graph  with  a  random  mapping.  This  random  mapping 
produces  7  synchronization  arcs,  but  the  mapping  which  considers  the  graph  topology 
produces  only  one  synchronization  arc.  In  Figure  4.4  the  mapping  algorithm  which 
considers  the  graph  topology  is  given. 

In  the  given  algorithm,  first  the  nodes  are  sorted  topologically,  then  mapping  starts 
from  the  root  node  and  continues  down  the  sorted  list  of  the  nodes.  The  mapping  heuristic 
is  to  map  a  child  node  to  an  empty  space,  such  that  it  can  start  after  its  parent's  finish  time. 
If  no  such  space  can  be  found,  then  the  node  is  placed  in  the  earliest  start  empty  space 
(probably  resulting  in  a  synchronization  arc).  If  no  attempt  to  find  any  empty  space  is 
successful,  then  the  cylinder  circumference  is  incremented  by  a  percentage  specified  by  the 
user,  and  the  mapping  process  is  restarted  all  over  again. 
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procedure  Map_the_cylinder(G,C)  /*G  is  Directed  Acyclic  Graph* 

/*  C  is  the  cylinder*/ 

q  <—  topological_sort(G);  /*  q  is  a  queue*/ 
boolean  Success=  true 

for  each  node  sorted  topologically  in  the  graph 

Try  to  place  the  node  to  an  empty  space  starts  after  latest  end 
parent  node; 

if  there  is  no  empty  space 

try  to  place  the  node  to  the  empty  space  that  starts  before  the 
latest  ends  parent  node,  but  has  enough  space  to  place  the  node 
after  the  latest  parent  node; 
if  there  is  no  empty  space 

try  to  place  the  node  to  the  earliest  available  empty  space, 
else  if  there  is  no  empty  place 
success  =  false; 

increment  the  circumference  of  the  cylinder; 
Map_the_cy  Under  (G,  C) ; 
exit; 
end  (for); 
end  Map_the_cylinder. 


Figure  4.4.  Algorithm  for  cylinder  mapping. 

B.      INDEX  ASSIGNMENT 

The  data  flow  execution  of  the  graph  requires  the  analysis  of  the  assignment  of  the 
nodes  to  the  cylinder  to  determine  which  instance  of  a  node  is  actually  to  be  executed.  The 
algorithm  for  index  assignment  is  given  in  [BELL  92]. 

In  this  algorithm,  an  arbitrary  node  is  assigned  an  index  of  zero  to  represent  the  fact 
that  it  is  the  current  instance  of  this  node  that  is  being  executed.  Every  parent  and  child  of 
this  node  is  examined  with  respect  to  its  relative  position  on  the  cylinder. 
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For  a  node  N,  Indices  of  the  parents  and  children  nodes  are  determined  according  to 
the  following  conditions: 

1.  If  a  parent's  completion  time  on  the  cylinder  is  greater  than  the  node  N's  start 
time  on  the  cylinder,  then  the  parent  must  be  executing  a  later  instance. Therefore,  the 

parent  is  given  an  index  which  is  incremented  by  one. 

2.  If  a  parent's  completion  time  on  the  cylinder  is  less  than  or  equal  to  the  node 
N's  start  time  on  the  cylinder,  then  the  parent  can  be  executing  the  same  instance  with  the 
current  node.  Therefore,  parent  is  given  the  same  index  as  node  N. 

3.1f  a  child's  start  time  on  the  cylinder  is  less  than  the  node  N's  finish  time  on  the 
cylinder  then  the  child  must  be  executing  a  previous  instance.  Therefore,  the  child  is  given 

an  index  which  is  decremented  by  one. 

4.  If  a  child's  start  time  on  the  cylinder  is  greater  than  or  equal  to  the  node  N' 
finish  time  on  the  cylinder  then  the  child  can  be  executing  the  same  instance  with  the  node 
N.  Therefore,  the  child  is  given  the  same  index  as  the  node  N. 

The  original  graph  and  the  cylinder  mapping  is  given  to  the  algorithm  as  input  and  the 
node  index  assignments  are  output  to  a  file. 

C.     SYNCHRONIZATION  ARCS  CREATION 

After  the  cylinder  assignment  and  corresponding  node  indices  are  established.  The 
required  synchronization  arcs  for  a  given  RC  schedule  can  be  determined. 

A  synchronization  arc  is  a  logical  arc  which  enforces  a  given  execution  sequence.  For 
example,  in  Figure  4.1(c),  node  b  and  node  c  can  be  executed  after  node  a's  completion, 
node  d  can  be  executed  after  node  ft's  completion,  node  e  can  be  executed  after  node  c's 
completion,  node  f  can  be  executed  after  node  d  and  node  e's  completion  and  node  a  can 
be  executed  after  nodefs  completion.  The  execution  sequence  of  all  nodes  except  node  a 


2.  Some  value  greater  than  one  would  be  acceptable,  although  the  parents  output  queue  size  will 
place  an  upper  bound  on  that  value. 

3.  Some  value  less  than  one  would  be  acceptable,  although  the  child  input  queue  size  will  place  an 
lower  bound  on  that  value. 
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is  satisfied  by  the  data  dependency.  To  control  the  execution  of  node  a,  we  need  an  arc  from 
node  f  which  will  trigger  node  a  after  it  completes  its  execution.  This  trigger  is  called 
synchronization  arc.  These  synchronization  arcs  can  be  implemented  as  input  queues  or 
output  queues.The  synchronization  arcs  implemented  as  input  queues  are  called  logical 
synchronization  arcs,  and  the  synchronization  arcs  implemented  as  output  queues  are  called 
physical  synchronization  arcs. 

In  order  to  understand  what  logical  and  physical  synchronization  arcs  means,  let  us 
look  the  Figure  4. 1  again.  In  this  Figure,  after  restructuring  the  original  graph  we  obtain  an 
synchronization  arc  from  node  f  to  node  a  with  two  initial  tokens.  It  simply  prevents  the 
node  a's  third  execution  until  node  f  finishes  its  first  execution.  This  arc  can  be 
implemented  as  an  input  token  queue  which  has  an  initial  number  of  tokens,  a  threshold, 
and  a  consumption  and  production  amount.  During  the  execution,  these  tokens  are 
produced  and  consumed  according  to  the  sink  and  source  node  execution. 

Enforcing  the  RC  schedule  with  logical  arcs  is  called  Start  After  Finish  (SAF) 
approach.  It  can  be  easily  seen  from  the  Figure  4.  le.  node  a  can  not  start  its  third  execution 
until  node  b  finishes  its  first  execution. 

The  same  synchronization  arc  can  also  be  enforced  by  putting  a  physical  arc.  This 
physical  arc  can  be  implemented  as  an  output  token  queue.  In  this  approach,  execution 
sequence  is  controlled  by  the  queue  capacity  instead  of  queue  threshold  quantity.  Figure  4.5 
depicts  the  physical  synchronization  arc  and  the  logical  synchronization  arc  which 
correspond  to  the  same  synchronization  arc. 


Figure  4.S.(a)  A  restructured  L)AU  with  logical  arcs,  (b)  A  Structured 
physical  arcs. 


l)AU  with 
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Enforcing  the  RC  schedule  with  physical  arcs  is  called  Start  After  Start  (SAS) 
approach.  It  can  be  easily  seen  from  Figure  4.4  (b)  that  node  a  can  not  start  its  third 
execution  until  nodef  starts  its  first  execution.The  algorithm  for  SAF  and  SAS  approaches 
are  given  in  Figure  4.6  and  Figure  4.7  respectively. 


procedure  Restructure_graph_with_SAF  (Cylinder); 
/*nr,ns  are  nodes  of  graph,  G*/ 
for  all  nodes,  nr 
check  index  i  of  nr 
find  the  latest  node,  ns  that  ends 

before  nr  starts  on  the  cylinder 
check  index  j  of  ns 

/*if  nr  starts  at  the  top  of  the  cylinder,  the  latest*/ 
/*node  ends  at  the  bottom  of  the  cylinder.*/ 
/*In  this  case,  j  should  be  decremental  by  one*/ 

introduce  a  synchronization  arc  from  ns  to  nr 

ifi>j 

put  i  -  j  initial  tokens  on  the  arc 

set  threshold  =  1,  consume  =  1 
else  if  i  <  j 

put  0  initial  tokens  on  the  arc 

set  threshold  =  j-i+1,  consume  =  1 
end  (for). 


Figure  4.6.  Algorithm  to  generate  logical  synchronization  arcs,  ISLZ  92] 
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procedure  Restructure_graph_with_SAS  (Cylinder); 
/*nr,ns  are  nodes  of  graph,  G*/ 
for  all  nodes,  nr 
check  index  i  of  nr 
find  the  latest  node,  ns  that  starts 

before  nr  starts  on  the  cylinder 
check  index  j  of  ns 

/*if  nr  starts  at  the  top  of  the  cylinder,  the  latest*/ 
/*node  starts  at  the  bottom  of  the  cylinder.*/ 
/*In  this  case,  j  should  be  decremented  by  one*/ 

introduce  a  synchronization  arc  from  ns  to  nr 
ifi>j 

put  i  -  j  initial  tokens  on  the  arc 

set  threshold  =  1,  consume  =  1 
else  if  i  <  j 

put  0  initial  tokens  on  the  arc 

set  capacity  =  j-i+1,  consume  =  1,  threshold  =  1 
end  (for). 


Figure  4.7.  Algorithm  to  generate  physical  synchronization  arcs. 

D.      PERFORMANCE  EVALUATION 

In  our  performance  evaluation  experiments,  we  use  two  sample  graphs  one  is  a  graph 
which  is  used  for  active  sonobuoys  and  the  other  is  an  artificial  test  graph  with  a  controlled 
topology.  The  benchmark  graph  consists  of  50  nodes  and  139  data  queues.  It  is  depicted  in 
Figure  4. 8. The  small  test  graph  consists  of  25  nodes  and  27  data  queues.  It  is  depicted  in 
Figure  4.9. 

In  the  experiments,  in  order  to  minimize  the  effect  of  the  communication  overhead,  the 
backward  synhronization  arcs  from  lower  nodes  to  the  upper  nodes,  are  removed 


35 


Node  number  Execution  time(cycles)/^9> 

1..4  94000 

5..20  88000 

21..48  172000                   (43' 

22..37  62000 

38  2000 

39  17000  (44) 
40..41  5000 

Total  execution  time   =  4181000cyc.  V^ 
node  50  and  node  5 1  are  I/O  nodes 

(46] 


Figure  4.8.  Active  sonobuoy  benchmark  graph. 
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15000 


20000       6 


Total  execution  time 
570000  cycles 


Al  execution  times  are  given  in  cycles. 
Figure  4.9.  A  artificial  test  graph. 
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1.     Basic  Performance  Measurements 

In  this  experiment,  we  examine  the  performance  of  SAS,  SAF,  and  FCFS 
scheduling  techniques  running  on  different  numbers  of  processors  and  arbitrary  queue  to 
memory  mapping.  The  experiment  is  repeated  twice,  assuming  high  and  low 
communication  overheads.  Low  and  high  communication  overheads  correspond  to  0.15 
and  0.75  percent  communication-computation  ratio  respectively.  In  order  to  chose  a  data 
rate,  first  FCFS  scheduling  is  simulated  and  the  data  rate  which  saturates  the  machine  is 
chosen.  The  cylinder  then  is  mapped  at  this  data  rate.  The  results  demonstrate  that  FCFS 
has  a  high  throughput  in  most  cases. 

Figure  4.10  and  figure  4.11  depict  the  throughput  results  from  the  benchmark 
graph  and  artificial  test  graph  respectively.  In  Figure  4. 10,  SAF  scheduling  exhibits  slightly 
better  throughput  than  FCFS  and  SAS  scheduling  techniques. 
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Graph  Name:  Benchmark  graph 
Number  of  Memory  Modules:  10 
Number  of  Processors:  2-5- 1 1 
Low  Comm.:  15  percent 
High  Comm.:  75  percent 
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Figure  4. 10.  The  throughput  obtained  from  the  benchmark  graph. 
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Graph  Name:  Artificial  test  graph 
Number  of  Memory  Modules:  10 
<M-  Number  of  Processors:  2-3-5 
Low  Comm.:  15  percent 
High  Comm.:  75  percent 
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Figure  4. 1 1  The  throughput  obtain  from  the  artificial  test  graph. 

In  Figure  4.11,  for  high  communication  overheads,  SAS  demonstrates  better 
throughput  in  most  cases,  but  for  low  communication  SAS  and  FCFS  are  exhibiting  almost 
same  throughput. 
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Figure  4.12.  The  processor  utilization  obtained  from  benchmark  graph. 
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Figure  4.12  shows  the  processor  utilization  of  benchmark  graph.  The  results 
demonstrate  The  FCFS  scheduling  has  slightly  better  utilization  than  SAS  and  SAF 
scheduling  techniques  in  all  cases. 

Figure  4.13  depicts  the  coefficient  of  variation  (COV)  of  the  iteration  length 
distribution.  This  figure  measures  the  regularity  of  the  output  production  which  is  at  most 
importance  in  real-time  systems.  As  revealed  by  this  figure,  none  of  the  scheduling 
technique  is  conclusively  better  than  the  others  with  respect  to  COV. 
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Figure  4. 13.  The  Coefficient  of  Variation  obtained  from  benchmark  graph. 

2.     Evaluating  the  Effect  of  Memory  Mapping 

The  second  experiment  is  performed  to  see  if  mapping  the  queues  to  memory 
modules  to  minimize  the  access  conflicts  will  give  better  results  than  the  randomly  mapped 
memory  modules.  The  mapping  is  done  maually  by  inspecting  th  RC  schedule.The 
experiment  is  performed  assuming  30  percent  communication  overheads.  In  the 
benchmark  graph,  10  memory  modules  and  5  processors  are  used,  and  the  obtained  results 
are  depicted  in  Figure  4. 14.  In  the  artificial  test  graph,  10  memory  modules  and  3  processors 
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are  used,  and  the  obtained  results  are  shown  in  Figure  4.15.  As  revealed  by  the  figures, 
mapping  the  queues  to  memories  according  to  the  cylinder  assignment  gives  better 
throughput  than  the  random  mapped  memories. (The  relative  change  in  throughput  is 
minuscale,  however). 
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Graph  Name:  Benchmark  graph 
Number  of  Memory  Modules:  10 
Number  of  Processors:  5 
Communication:  15  percent 
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Figure  4. 14.  The  effect  of  the  memory  mapping  on  scheduling  techniques  (Benchmark) 


3 

a. 
.3 

04D 

3 
O 
s_ 


Graph  Name:  Artificial  Test  graph 
Number  of  Memory  Modules:  10 
Number  of  Processors:  4 
Communication:  30  percent 
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Figure  4.15  The  effect  of  the  memory  mapping  on  scheduling  techniques  (Test  graph) 
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3.     Effect  of  the  Queue  Size  on  the  System  Throughput 

This  experiment  is  performed  to  watch  the  effect  of  changing  the  data  queue  sizes 
with  respect  to  FCFS,  and  compare  that  the  performance  of  SAS  and  SAF  assuming  the 
queue  sizes  dictated  by  the  RC  assignment.  The  experiment  was  performed  on  the  artificial 
test  graph  with  4  processors  and  10  memory  modules.  The  data  rate  which  saturates  the 
machine  in  FCFS  assuming  very  large  queue  sizes,  is  chosen.  Different  queue  sizes  were 
tried.  The  results  are  demonstrated  in  Figure  4.16.  For  the  given  data  rate,  the  experiment 
results  reveal  that  queue  size  does  not  effect  the  throughput  for  FCFS. 
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Graph  Name:  Artificial  Test  graph 
Number  of  Memory  Modules:  10 
Number  of  Processors:  4 
Communication:  30  percent 
Normalized  data  rate:  0.90 
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Figure  4.16  The  effect  of  the  data  queue  size  on  throughput  with  FCFS, SAS  and  SAF 
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V.  CONCLUSION  REMARKS 

A.  CONCLUSIONS 

In  this  thesis,  a  simulator  (PIPDAFS)  which  is  used  for  Large  Grain  Data  Flow 
machines,  and  a  graph  restructurer  (GR)  which  determines  the  node  dependencies 
according  to  a  given  strategy  and  restructures  the  original  graph  were  developed.  A  series 
of  experiments  were  performed  by  using  GR  and  PIPDAFS.  GR  and  PIPDAFS  are  a  kind 
of  tool  that  can  be  used  to  test  the  different  scheduling  strategies. 

In  our  experiments,  we  compared  FCFS  scheduling  with  two  other  scheduling 
techniques  in  which  the  graphs  were  restructured  and  the  nodes  were  executed  according 
to  their  graph  topologies.  While  in  theory,  restructuring  techniques  should  improve  the 
performance,  the  result  of  the  experiments  demonstrate  that  this  improvement  is  meager. 
We  believe  that  the  reason  for  these  results  is  that  the  mapping  techniques  employed  in 
these  experiments  completely  ignored  the  effects  of  communication.  We  believe  that 
combining  the  restructuring  techniques  with  a  mapping,  while  considering  communication 
overhead,  would  give  results  closer  to  the  anticipated  theoretical  results. 

B.  FUTURE  WORK 

As  noted  from  the  experimental  results,  a  new  mapping  algorithm  which  considers  the 
communication  overhead  should  be  designed. 

Algorithms  for  allowing  the  complete  communication-computation  overlap  and 
deterministic  nonconflicting  resource  usage  should  be  identified. 

Currently  synchronization  arcs  that  are  obtained  through  restructuring  are  manually 
pruned.  Some  work  is  needed  in  the  area  of  determining  the  minimal  number  of 
synchronization  arcs  required  to  satisfy  the  graph  restructuring,  as  the  number  of 
synchronization  arcs  can  be  potentially  be  a  major  factor  in  the  overall  system  performance. 

In  this  research,  a  dynamic  node  to  processor  assignment  technique  was  employed. 
Using  a  static  processor  assignment  technique  could  be  a  step  towards  achieving  more  run 
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-time  determinism.  This  should  be  critically  weighed  against  the  utility  of  fully  dynamic 
processor  assignment  techniques  with  respect  to  fault  tolerance. 
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APPENDIX  A  :  Sample  Graph  File 
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Sample  Machine  Configuration  File 
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APPENDIX  B:  Simulator  Source  Code 


//  Author  :  Cem  Akin 

//  Advisor :  Amr  Zaky 

//  Description  :  LGDF  machine  simulator  class  header  file 

//Date:  12  November  1992 

//  Last  Revised  :  03  January  1993 

#include"scheduler.h" 
#include"mlist.h" 
#include  <fstream.h> 

class  simulator  { 
public  : 

simulator(); 

~simulator(); 

void  simulateO; 

voidproduce_readqueues(gnode*,event*); 

void  produce_writequeues(gnode*, event*); 

void  initialize_events(int); 

voidprocess_event(event*,fstream&,fstream&,int); 

void  consume_q(int); 

void  prints tatistics(fstream&,fstream&,intjnt,double,double); 

void  increasewriteamount(gnode  *); 

void  increasereadamount(gnode  *); 

void  decreasewriteamount(gnode  *); 

void  decreasereadamount(gnode  *); 

boolean  assign_processor(gnode  *); 

boolean  arealloutputqsready(gnode  *); 

boolean  areallqsot(gnode  *); 

boolean  arealloutputnodesexecuted(); 

void  initializeoutputnodes(); 

private : 

scheduler*  sch; 
mlist  *  ml; 
plist*  pi; 
Qlist  *  gqueuelist; 
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nlist  *  gnodelist; 
pqueue  *  eventqueue; 
int  startinstance, 
finishinstance, 
inststart, 
fixedcomm; 

boolean  onlyonecanbeready, 

incremented; 

double  clock, 

interval, 

communication, 

comm; 


//  Author :  Cem  Akin 

//  Advisor :  Amr  Zaky 

//  Description  :  LGDF  machine  simulator  class. 

//  Date  :  12  November  1992 

//  Last  Revised :  03  January  1993 

#include<iostream .  h> 

#include"simulator.h" 

#include<math.h> 

//  Constructor  of  simulator  class. 
simulator::simulator(){ 

clock  =  0; 

sch  =  new  scheduler, 

ml  =  new  mlist; 

pi  =  new  plist; 

startinstance  =  0; 

finishinstance  =  0; 

incremented  =  false; 

gqueuelist  =  new  Qlist; 

gnodelist  =  new  nlist; 

eventqueue  =  new  pqueue; 

communication  =  0.0; 

comm  =1; 

fixedcomm  =100; 

}; 

//  Destructor  of  simulator  class 
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simulator:  :~simulator()  { 
delete  sch; 
delete  ml; 
delete  pi; 
delete  gqueuelist; 
delete  gnodelist; 
delete  eventqueue; 
sch  =  NULL; 
ml  =  NULL; 
pi  =  NULL; 
gqueuelist  =  NULL; 
gnodelist  =  NULL; 
eventqueue  =  NULL; 


//  This  function  initialize  the  simulator  to  start  the  simulation, 
void  simulator::initialize_events(int  period)! 
nlist*  l=gnodelist; 
event*  tempevent; 

//  For  each  input  node  produces  an  event  that  activates  the  simulator 
for(l->cuiTent=l->head;l->current;l->current=l->current->nextitem){ 
if  (l->current->element->ntype==input)  { 
l->current->element->dataperiod  =  period; 
tempevent  =  new  event; 

tempevent->eventname=reach_production_period; 
tempevent->starttime=clock; 
tempevent->priority  =clock; 
tempevent->nodenum=l->current->element->nodeid; 
eventqueue->enqueue(tempevent); 


//  This  function  reads  the  input  files,  gets  user  choices,  initializes  the 

//simulator  and 

void  simulator::simulate(){ 

fstream  myfile, 

startfile, 
endfile. 
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userdata, 

inputperiod, 

config, 

mem, 

logfile; 

myfile.open("graph.dat",ios::in); 

config.open("machine.config",ios::in); 

mem.open("memodules",ios::in); 

int  index, 

nummemos, 

choice, 

option, 

option2, 

instancenum, 

dperiod; 

double  drate; 

intnode*  mode; 

event*  tempevent; 

startfile.open("starttimes",ios::out); 

endfile.open("endtimes",ios::out); 

tempevent  =  new  event; 

userdata.open("userdat",ios::in); 

inputperiod.open("inperiod",ios::in); 

userdata  » inststart; 

userdata  »  instancenum; 

userdata  »  option; 

if  (option  ==  1) 

onlyonecanbeready  =  true; 
else 

onlyonecanbeready  =  false; 
userdata  »  choice; 
userdata  »  option2; 
if  (option2){ 

logfile.open("log_file"4os::applios::out); 

}; 

nummemos=ml->loadmemory(config); 

int  pno; 

config  »pno; 

int  pnum  =  pl->loadprocessors(config,pno); 
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}; 


for  (index=l;index<=pno;index-H-){ 
tnode  =  new  intnode; 
tnode->setnode(index,0); 
sch->freeproclist->enqueue(mode); 

>; 

int  tottime  =  gnodelist->loadnodes(myfile,mem,choice,nummemos); 

gqueuelist->loadqueues(myfile,mem,gnodelist,nummemos); 

myfile.closeO; 

inputperiod  »  dperiod; 

initialize_events(dperiod); 

drate  =  double  (double( tottime  /  pnum)/dperiod); 

cerr  «  '^SIMULATION  IS  IN  PROCESS  PLEASE  WAIT  !!!!\n"; 

while  ((!  (eventqueue->empty()))&&  (instancenum>finishinstance)) 
tempevent  =  eventqueue->dequeue(); 
process_event(tempevent,startfile,ehdfile,instancenum); 
if(option2){ 

logfile  «  clock  «  "  "; 

tempevent->printevent(logfile); 


startfUe.close(); 

endfde.close(); 

inputperiod. close(); 

userdata.closeO; 

config.closeO; 

logfile.close(); 

printstatistics(startfile,endfileanstancenum-inststart+ 1  ,instancenum,drate,tottime); 


//  This  function  processes  the  given  event  and  enqueue  the  produced  events  to 

//  event  queue. 

void  simulator::process_event(event  *e,fstream&  startfile, 

fstream&  endfile,int  instancenum){ 

event  *  tempevent=new  event; 

gnode  *  tempnode ; 
Queueltem  *  tempqueue; 
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memory  *  tempmemory; 

processor  *  tempproc; 

intnode  *tnode  =new  intnode; 

int  duration; 

clock  =  e->starttime;  //Advance  the  system  clock  to  event  starttime 

switch  (e->eventname){ 

//if  input  data  period  has  been  reached 

case  reach_production_period:  { 

tempnode=gnodelist->getnode(e->nodenum); 
tempevent->eventname=inqsoverthreshold;  //Produce  event  that 
tempevent->starttime=clock;  //indicates  input  queues 
tempevent->priority  =clock;  //are  overthreshold. 
tempevent->nodenum  =  e->nodenum;  //It  is  assumed  that  amount 
eventqueue->enqueue(tempevent);  //of  data  at  each  period  is 
//large  enough  to  make  input 
//queues  overthreshold 

tempevent  =  new  event;  //Produce  next  data  period  event 

tempevent->eventname=reach_production_period; 

tempe  vent->  starttime=c  lock+tem  pnode->  getdatarate(); 

tempevent->priority  =  tempevent->starttime; 

tempevent->nodenum  =  e->nodenum; 

eventqueue->enqueue(tempevent); 

break; 


//if  all  node  input  queues  are  overthreshold 
case  inqsoverthreshold:  { 

tempnode  =  gnodelist->getnode(e->nodenum); 
if  (areallourputqsready(tempnode)lltempnode->getnodetype()==output)  { 
tempevent->eventname  =  ready_node;//If  all  node  output  queues 
tempevent->starttime  =  clock;  //have  space  or  node  is  an 
tempevent->priority  =  clock;  //output  node.then  produce 
tempevent->nodenum  =  e->nodenum;  //node  is  ready  event 
eventqueue->enqueue(  tempevent); 

} 
else  { 

if  (tempnode->ntype==instruction){ 

tempnode->waitingforoutput  =  true;//Otherwise  set  the  flag  to 

tempnode->waitingnumber-H-;  //indicate  node  is  waiting  for 
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}; 

break; 


//if  node  is  ready  to  be  executed 
case  ready_node:  ( 

tempnode  =  gnodelist->getnode(e->nodenum); 

//If  node  can  not  be  put  into  the  ready  list  decrease  the  readamount 

//which  is  previously  incremented  to  prevent 

if  (onlyonecanbeready  &&  (sch->member(e->nodenum))) 

decreasereadamount(  tempnode); 
//If  node  is  not  already  in  rl  then  put  node  to  rl  and  schedule  a 
//from  rl. 
if  (onlyonecanbeready  &&  (!(sch->member(e->nodenum)))){ 

sch->putnodeinrl(gnodelist->getnode(e->nodenum)); 

increasewriteamount(  tempnode); 

I 

else{  //If  node  is  already  in  rl  increment  number  of  waiting  ready 
//nodes 
if  (onlyonecanbeready)  i 

tempnode->readycount-H-; 
else{  //  If  more  than  one  node  can  be  ready  at  any  time 
//put  node  to  rl.  and  schedule  a  node 
sch->putnodeinrl(gnodelist->getnode(e->nodenum)); 
increase  writeamount(  tempnode); 


tempevent  =  new  event; 

tempevent->eventname  =  schedule_a_node_from_rl; 
tempevent->starttime  =  clock; 
tempevent->priority  =  clock; 
eventqueue->enqueue(  tempevent); 
break; 

>; 

//If  rl  is  not  empty  schedule  a  node  from  rl. 
case  schedule_a_node_from_rl:  { 
if  (!(sch->emptyrl())){ 
if  (!(sch->isbusy())) 

sch->schedule_node(gnodelist,pl,eventqueue,clock); 

I; 
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break; 

}; 

//If  node  setup  is  started 
case  start_setup :{ 

tempnode=gnodelist->getnode(e->nodenum); 
tempproc  =  pl->getproc(e->assocproc); 
if  (!  (incremented)) 

if  (tempnode->getnodetype()=input&& 
startinstance<=tempnode->getnodeinstance()){ 
incremented  =  true; 
startinstance++; 
if  (startinstance  >=  inststart) 

startfile  «  startinstance  «  "  "  «  clock  «endl; 
if  (startinstance  ==  inststart) 
interval  =  clock; 


if  ((tempnode->getsetuptimeO>=0)){ 

if  (( !  (tempproc->isbreakdownbusy()))&& 
(!(tempproc->isexecbusy()))){ 
tempproc->startutil=clock; 

}; 

tempproc=pl->getproc(e->assocproc); 

if  ((!(tempproc->isbreakdownbusy()))ll 

tempnode->getsetuptime()=0){  //  If  breakdown  is  not  busy 
tempproc->setsetupbusydll(clock+tempnode->getsetuptime()); 
tempproc->setsetupbusy(true); 
tempevent  =  new  event; 
tempproc->waitingonexec  =  false; 
incremented  =  false; 
tempevent->eventname  =  fmish_setup; 
tempevent->starttime  =  clock+tempnode->getsetuptimeO; 
tempevent->priority  =  tempevent->starttime; 
tempevent->nodenum  =  e->nodenum; 
tempevent->queuenum  =  e->queuenum; 
tempevent->assocproc  =  e->assocproc; 
tempevent->assocmem  =  e->assocmem; 
eventqueue->enqueue(  tempevent); 
} 
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else{  //  Otherwise  start  to  read  after  setup  finished 
tempevent  =  new  event; 
tempevent->eventname  =  start_setup; 
tempevent->starttime  =  tempproc->getbreakdownbusytime(); 
tempevent->priority  =  tempevent->starttime; 
tempevent->nodenum  =  e->nodenum; 
tempevent->assocproc  =  e->assocproc; 
tempevent->assocmem  =  tempnode->memid; 
eventqueue->enqueue(  tempevent); 

}; 
} 

else{ 

if  ((!(tempproc->isbreakdownbusyO))&& 
(!(tempproc->isexecbusy()))){ 
tempproc->startutil=clock; 

}; 

tempproc=pl->getproc(e->assocproc); 

if  (!(tempproc->isbreakdownbusy())){  //  If  breakdown  is  not  busy 

tempevent  =  new  event;  //start  to  read  primitive  inst 

tempproc->setsetupbusytiU(clock+tempnode->getsetuptime()); 

tempproc->setsetupbusy(true); 

tempproc->waitingonexec  =  false; 

incremented  =  false; 

tempevent->eventname  =  start_reading_instruction_stream; 

tempevent->starttime  =  clock; 

tempevent->priority  =  clock; 

tempevent->nodenum  =  e->nodenum; 

tempevent->assocproc  =  e->assocproc; 

tempevent->assocmem  =  tempnode->memid; 

eventqueue->enqueue(  tempevent); 

} 

else{  //  Otherwise  start  to  read  after  setup  finished 

tempevent  =  new  event; 

tempevent->eventname  =  start_reading_instruction_stream; 

tempevent->starttime  =  tempproc->getbreakdownbusytime(); 

tempevent->priority  =  tempevent->starttime; 

tempevent->nodenum  =  e->nodenum; 

tempevent->assocproc  =  e->assocproc; 

tempevent->assocmem  =  tempnode->memid; 

eventqueue->enqueue(tempevent); 
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}; 

break; 


//Start  to  read  primitive  instruction 
case  start_reading_instruction_stream:  { 
tempevent  =  new  event; 
tempmemory  =  ml->getmem(e->assocmem); 
tempproc  =  pl->gerproc(e->assocproc); 
tempnode  =  gnodelist->getnode(e->nodenum); 

if  (!(tempmemory->isbusy())){  //  if  memory  is  not  busy 
//Calculate  reading  delay  and  finish  reading  after  this  delay 
duration  =  (int  (fixedcomm  +  comm*tempnode->aissize)); 

tempproc ->setsetupbusytill(clock+duration); 

tempmemory->setbusy(true); 

tempmemory->setbusytill(clock+duration); 

tempevent->eventname  =  finish_reading_instruction_stream; 

tempevent->starttime  =  clock+duration; 

tempevent->priority  =  clock+duration; 

tempevent->nodenum  =  e->nodenum; 

tempevent->assocproc  =  e->assocproc; 

tempevent->assocmem  =  e->assocmem; 

eventqueue->enqueue(tempevent); 

I 

else  {  //otherwise  try  to  read  after  memory  become  available 

tempproc->setsetupbusytill(tempmemory->getbusytime()); 

tempevent  =  new  event; 

tempevent->eventname  =  start_reading_instruction_stream; 

tempevent->starttime  =  tempmemory->getbusytime(); 

tempevent->priority  =  tempevent->starttime; 

tempevent->nodenum  =  e->nodenum; 

tempevent->assocproc  =  e->assocproc; 

tempevent->assocmem  =  e->assocmem; 

eventqueue->enqueue(tempevent); 

}; 
break; 


//finishes  the  reading  of  primitive  instructions 
case  finish_reading_instruction_stream  :  { 

tempmemory  =  ml->getmem(e->assocmem); 
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tempnode  =  gnodelist->getnode(e->nodenum); 

tempmemory->setbusy(false); 

//Produce  read  queues  for  output  queues 

produce_readqueues(tempnode,e); 

break; 


//  Starts  to  read  specified  input  queue  if  processor  is  not  already 
//reading  and  memory  to  be  read  from  is  not  busy 
case  start_readqueue:  { 
tempqueue  =  gqueuelist->getqueue(e->queuenum); 
tempmemory=  ml->getmem(tempqueue->getgmid()); 
tempproc=pl->getproc(e->assocproc); 
if  (tempqueue->qtype  ==  syn_arc){ 

tempevent  =  new  event; 

tempevent->eventname=finish_reading; 

tempevent->starttime=clock; 

tempevent->priority=tefnpevent->startrime; 

tempevent->queuenum=e->queuenum; 

tempevent->nodenum=e->nodenum; 

tempevent->assocproc=e->assocproc; 

tempevent->assocmem  =  tempqueue->getgmid(); 

eventqueue->enqueue(tempeyent); 

I 
else{ 

if  (!(tempmemory->isbusyO)){ 
if  (!(tempproc->readinginprocess)){ 

tempproc->readinginprocess  =  true; 

duration  =(int(fixedcomm+comm*tempqueue->consumptionqty)); 

tempproc->setsetupbusytill(clock+duration); 

tempmemory->setbusy(true); 

tempmemory->setbusytill(clock+duration); 

tempevent- >eventname=finish_reading; 

tempevent->starttime=clock+duration; 

tempevent->priority=tempevent->starttime; 

tempevent->queuenum=e->queuenum; 

tempevent->nodenum=e->nodenum; 

tempevent->assocproc=e->assocproc; 

tempevent->assocmem  =  tempmemory->getmemidO; 

eventqueue->enqueue(  tempevent); 
I 
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else{  //if  processor  is  already  reading 

tempevent->eventname=start_readqueue; 

tempevent->starttime=tempproc->setupbusytill; 

tempevent->priority=tempevent->starttime; 

tempe  vent->  nodenum=e->nodenum ; 

tempevent->queuenum=e->queuenum; 

tempevent->assocproc=e->assocproc; 

eventqueue->enqueue(tempevent); 

}; 
> 

elsef  //If  memory  to  be  read  is  busy 

tempproc->setserupbusytill(tempmemory->getbusytime()); 

tempevent->evenmame  =  e->eventname; 

tempevent->starttime  =  tempmemory->getbusytime(); 

tempevent->priority  =  tempevent->starttime; 

tempevent->queuenum  =  e->queuenum; 

tempevent->nodenum  =  e->nodenum; 

tempevent->assocproc  -  e->assocproc; 

tempevent->assocmem  =  tempmemory->getmemid(); 

eventqueue->enqueue(tempevenf); 
}: 
}; 
break; 


//Mark  processor  as  not  busy  and  look  if  there  are  waiting  ready 
//nodes  for  a  processor, 
case  free_processor:{ 

tempproc  =  pl->getproc(e->assocproc); 

tempproc->setfree(true); 

tnode->setnode(tempproc->procid,0); 

sch->  freeproc  list->enqueue(  tnode) ; 

tempevent->eventname  =  schedule_a_node_from_rl; 

tempevent->starttime  =  clock; 

tempevent->priority  =  clock; 

eventqueue->enqueue(tempevent); 
break; 


//Starts  execution 
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case  start_execution  :  { 

tempnode=gnodelist->getnode(e->nodenum); 
//Get  the  execution  delay 
duration=tempnode->getexectime(); 
tempproc=pl->getproc(e->assocproc); 
tempevent  =  new  event; 
tempevent->eventname  =  start_execution; 
tempevent->starttime  =  tempproc->getexecbusytime(); 
tempevent->priority  =  tempevent->starttime; 
tempevent->nodenum  =  e->nodenum; 
tempevent->assocproc  =  e->assocproc; 
eventqueue->enqueue(tempevent); 
break; 

}; 

//Finishes  execution  if  breakdown  and  setup  stages  are  not  busy 
case  finish_execution  :  { 

tempnode=gnodelist->getnode(e->nodenum); 
tempproc=pl->getproc(e->assocproc); 
if(!(tempproc->isbreakdownbusy())){ 
if  ( !  (tempproc->issetupbusy  ()))  { 
tempproc->setexecbusy(fa!se); 
tempproc->setbreakdownbusy(true); 
tempproc->setbreakdownbusytill(clock); 
tempnode->lastinstance++; 
tempevent->eventname  =  start_breakdown; 
tempevent->starttime  =  clock; 
tempevent->priority  =  clock; 
tempevent->nodenum  =  e->nodenum; 
tempevent->assocproc  =  e->assocproc; 
eventqueue->enqueue(tempevent); 
> 

else  {//Otherwise  indicate  that  execution  is  waiting  for  setup 
tempproc->waitingonsetup  =  true; 

if  (tempproc->waitingonexec)  { //This  part  prevents  the  deadlock 
tempproc->setsetupbusy(false); 
tempproc->setexecbusy(false); 
tempproc->waitingonsetup=false; 
tempevent->starttime=clock; 
} 
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else 
tempevent->starttime=  tempproc->getsetupbusytime(); 

tempproc->setexecbusytill(tempevent->starttime); 
tempevent->eventname  =  finish_execution; 
tempevent->priority  =  tempevent->starttime; 
tempevent->nodenum  =  e->nodenum: 
tempevent->assocproc  =  e->assocproc; 
eventqueue->enqueue(tempevent); 
}', 
) 
else(  //If  breakdown  is  busy,  try  to  finish  execution 

tempproc->setexecbusytill(tempproc->getbreakdownbusyrirne()); 
tempevent->eventname  =  finish_execution; 
tempevent->starttime  =  tempproc->gefbreakdownbusytime(); 
tempevent->priority  =  tempevent->starttime; 
tempevent->nodenum  =  e->nodenum; 
tempevent->assocproc  =  e->assocproc; 
eventqueue->enqueue(tempevent); 

}; 

break; 

}; 

//Starts  to  breakdown  and  produces  start  write  queue 
case  start_breakdown ;{ 

tempnode=gnodelist->getnode(e->nodenum); 

tempproc=pl->getproc(e->assocproc); 

tempproc->setbreakdownbusytiil(clock+tempnode->getbreakdowntime()); 

tempproc->setbreakdownbusy(true); 

//Produces  write  queues 

produce_writequeues(tempnode,e); 

break; 


//Starts  writing  to  the  specified  GM  if  processor  is  not  already 
//writing  and  memory  to  be  written  is  not  busy 
case  start_write_queue:  { 

tempqueue=gqueuelist->getqueue(e->queuenum); 

tempproc=pl->getproc(e->assocproc); 

if  (tempqueue->qtype=syn_arc){ 

tempevent  =  new  event; 
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tempevent->eventjiame  =  finish_writing; 
tempevent->starttime  =  clock; 
tempevent->priority  =  tempevent->starttime; 
tempevent->nodenum  =  e->nodenum; 
tempevent->queuenum  =  e->queuenum; 
tempevent->assocproc  =  e->assocproc; 
tempevent->assocmem  =  tempqueue->getgmid(); 
eventqueue->enqueue(tempevent); 

} 
else{ 

tempnode  =  gnodelist->getnode(e->nodenum); 
if  (tempnode->getbreakdowntime()>=0){ 

tempproc->setbreakdownbusytill(clock+tempnode->getbreakdowntimeO); 
tempmemory=ml->getmem(tempqueue->getgmid()); 
tempevent->eventname  =  finish_writing; 
tempevent->starttime  =  clock+tempnode->getbreakdowntime(); 
tempevent->priority  =  tempevent->starttime; 
tempevent->nodenum  =  e->hodenum; 
tempevent->queuenum  =  e->queuenum; 
tempevent->assocproc  =  e->assocproc; 
tempevent->assocmem  =  tempmemory->getmemid(); 
eventqueue->enqueue(teiTipevent); 

} 

else{ 
//Calculate  the  write  process  delay 

duration  =(int(fixedcomm+comm*tempqueue->geq)roductionqty())); 
tempmemory=ml->getmem(tempqueue->getgmid()); 
if  ((!(tempmemory->isbusy()))lltempnode->getnodetype()==input){ 
if  (!(tempproc->writeinprocess)){ 
tempproc->writeinprocess  =  true; 
tempproc->setbreakdownbusytill(clock+duration); 
if  (tempnode->getnodetype()==inst)  { 
tempmemory->setbusy(true); 
tempmemory->setbusytill(duration+clock); 

}; 

tempevent->eventname  =  finish_writing; 
tempevent->starttime  =  clock+duration; 
tempevent->priority  =  tempevent->starttime; 
tempevent->nodenum  =  e->nodenum; 
tempevent->queuenum  =  e->queuenum; 
tempevent->assocproc  =  e->assocproc; 
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tempevent->assocmem  =  tempqueue->getgmid(); 
eventqueue->enqueue(tempevent); 

} 
else{ 

tempevent->eventname  =  start_write_queue; 
tempevent->starttime  =  tempproc->breakdownbusytill; 

tempevent->priority  =  tempevent->starttime; 
tempevent->nodenum  =  e->nodenum; 
tempevent->queuenum  =  e->queuenum; 
tempevent->assocproc  =  e->assocproc; 
eventqueue->enqueue(tempevent); 


else{ 

tempproc->setbreakdownbusytill(tempmennory->getbusytime()); 
tempevent->eventname  =  e->eventname; 
tempevent->starttime  =  tempmemory->getbusytime(); 
tempevent->priority  -  tempevent->starttime; 
tempnode  =  gnodelist->getnode(e->nodenum); 
tempevent->nodenum  =  e->nodenum; 
tempevent->queuenum  =  e->queuenum; 
tempevent->assocproc  =  e->assocproc; 
tempevent->assocmem  =  tempqueue->getgmid(); 
eventqueue->enqueue(tempevent); 


break; 

}; 

//Finishes  reading 
case  finish_reading:  { 

tempproc=pl->getproc(e->assocproc); 

tempproc->readinginprocess=false; 

tempnode=gnodelist->getnode(e->nodenum); 

tempmemory=ml->getmem(e->assocmem); 

tempmemory->setbusy(false); 

tempnode->incnumreadqs(); 

//If  this  is  the  last  queue  to  be  read,  finish  setup 

if  (tempnode->lastnoderead())  { 
tempnode->setnumreadqs(); 
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consume_q(e->queuenum); 
tempevent->eventname  =  finish_setup; 
tempevent->starttime  =  clock; 
tempevent->priority  =  clock; 
tempevent->nodenum  =  e->nodenum; 
tempevent->queuenum  =  e->queuenum; 
tempevent->assocproc  =  e->assocproc; 
tempevent->assocmem  =  e->assocmem; 
eventqueue->enqueue(tempevent); 

}; 

break; 

}; 

//Finishes  the  node  setup  if  execution  stage  is  not  busy 
case  finish_setup:  { 

tempproc=pl->getproc(e->assocproc); 
tempnode=gnodelist->getnode(e->nodenum); 
if( !  (tempproc->isexecbusy()))  { 

//Free  the  processor 

tempproc->setsetupbusy(false); 

tempevent->eventname=free_processor; 

tempevent->starttime=clock; 

tempevent->priority  =clock; 

tempevent->assocproc=e->assocproc; 

eventqueue->enqueue(tempevent); 

tempproc->onlyexectime  =  tempproc->onlyexectime  + 
tempnode->getexectime(); 

tempevent  =  new  event; 

tempevent->eventname=start_execution; 

tempevent->starttime  =  clock; 

tempevent->priority  =  clock; 

tempevent->nodenum  =  e->nodenum; 

tempevent->assocproc  =  e->assocproc; 

eventqueue->enqueue(  tempevent); 

I 

else{//  Execution  stage  is  busy  try  to  finish  setup 

//When  execution  is  finished 

tempproc->waitingonexec  =  true; 

if  (tempproc->waitingonsetup)  {  //This  part  prevents  deadlock 
tempproc->setexecbusy(false); 
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tempproc->waitingonsetup=false; 
tempproc->waitingonexec=false; 
tempevent->starttime=clock; 

} 

else 
tempevent->starttime=tempproc->getexecbusytime(); 

tempproc->setsetupbusytill(tempevent->starttime); 
tempevent->eventname  =  finish_setup; 
tempevent->priority  =  tempevent->starttime; 
tempevent->nodenum  =  e->nodenum; 
tempevent->assocproc  =  e->assocproc; 
eventqueue->enqueue(tempevent); 

}; 

break; 


//Finishes  writing  process 
case  finish_writing:  { 

tempproc=pl->getproc(e->assocproc); 

tempproc  ->  writeinprocess=f alse; 

tempqueue=gqueuelist->getqueue(e->queuenum); 

tempnode=gnodelist->getnode(e->nodenum); 

tempnode->incnumwriteqsO; 

tempmemory=ml->getmem(e->assocmem); 

tempmemory->setbusy(false); 

//Increment  current  length  of  queue 

tempqueue->inccurTentlength(tempqueue->getproductionqty()); 

//Decrement  writeamount  since  queue  is  physically  written 

tempqueue->writeamount=tempqueue->writeamount- 

tempqueue->getproductionqty(); 

//If  this  is  the  last  queue  to  be  written  finish  breakdown 
if  (tempnode->lastqueuewrite()){ 

tempnode->setnumwriteqs(); 

tempevent->eventname=finish_breakdown; 

tempevent->starttime  =  clock; 

tempevent->priority  =  clock; 

tempevent->nodenum  =  e->nodenum; 

tempevent->queuenum  =  e->queuenum; 

tempevent->assocproc  =  e->assocproc; 
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tempevent->assocmem  =  e->assocmem; 
eventqueue->enqueue(tempevent); 


//If  produeced  data  makes  the  queue  overthreshold 
if  (tempqueue->isoverthreshold()){ 

tempevent  =  new  event; 

tempevent->eventname=queue_overthreshold; 

tempevent->starttime=clock; 

tempevent->priority=clock; 

tempevent->nodenum=tempqueue->getsinknode(); 

tempevent->queuenum=e->queuenum; 

eventqueue->enqueue(tempevent); 

}; 

break; 


//Finishes  the  node  breakdown 
case  finish_breakdown:  { 

tempnode  =  gnodelist->getnode(e->nodenum); 
tempproc=pl->getproc(e->assocproc); 
tempproc->setbreakdownbusy(false); 
if  (((!(tempproc->issetupbusy()))&& 
(!(tempproc->isexecbusyO)))H 
finishinstance=(instancenum- 1 ))  { 

tempproc->durationprocbusy=tempproc->durationprocbusy+ 
c  lock- tern  pproc  ->startutil; 
tempproc->startutil=clock; 

}; 

tempevent  =  new  event; 

tempnode=gnodelist->getnode(e->nodenum); 

tempnode->processing  =  false; 

tempevent  =  new  event; 

if  (tempnode->getnodetype()==output) 

tempnode->executed  =  true; 
if(arealloutputnodesexecuted())  { 

initializeoutputnodesO; 
finishinstance++; 
if  (finishinstance  >=  inststart) 
endfde  «  finishinstance  «  "  "  «  clock  «  endl; 

}; 
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>; 
}; 


//If  ready  node  list  is  not  empty 
if(!(sch->emptyrl())){ 

tempevent->eventname  =  schedule_a_node_from_rl; 

tempevent->starttime  =  clock; 

tempevent->priority  =  clock; 

eventqueue->enqueue(tempevent); 

}; 

break; 


//  If  queue  is  overthreshold  check  the  other  input  queues 
//If  all  overthreshold  indicate  node's  input  data  is  ready 
case  queue_overthreshold:  { 

tempnode=gnodelist->getnode(e->nodenum); 
if  (areallqsot(tempnode))  { 

increasereadamount(tempnode); 

tempevent->eventname=inqsoverthreshold; 

tempevent->starttime=clock; 

tempevent->priority  =clock; 

tempevent->nodenum  =  e->nodenum; 

eventqueue->enqueue(tempevent); 

}; 

break; 


//Marks  scheduler  as  not  busy 
case  free_scheduler:  { 
sch->setbusy(false); 

//Checks  if  there  is  a  ready  node  which  is  waiting  for 

//scheduler  try  to  schedule  a  node  from  rl 

tempevent->eventname  =  schedule_a_node_from_rl; 

tempevent->starttime  =  clock; 

tempevent->priority  =  tempevent->starttime; 

eventqueue->enqueue(tempevent); 

break; 

}; 

case  none:  { 
break; 
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( ;  //end  of  procesevent 


//  Produces  read  queue  events  for  each  input  if  it  is  not  an  input  node, 
void  simulator::produce_readqueues(gnode  *n,event*  e){ 
intlist  *1; 

event  *  tempevent ; 
1  =  n->getinputqueuelist(); 

//If  it  is  an  input  queue,  then  after  fixed  amount  delay  finish  setup 
if  (n->getnodetype()  =  input)  { 

tempevent=new  event; 

tempevent->eventname  =  finish_setup; 

tempevent->starttime  =  clock; 

tempevent->priority  =  tempevent->starttime; 

tempevent->nodenum  =  e->nodenum; 

tempevent->assocproc  =  e->assocproc; 

eventqueue->enqueue(  tempevent); 

} 

else{ 
//For  internal  nodes  produce  read  queues 
for(l->current=l->head;l->current;l->current=l->current->nexmode){ 

tempevent=new  event; 

tempevent->eventname  =  start_readqueue; 

tempevent->starttime  =  clock; 

tempevent->priority  =  clock; 

tempevent->nodenum  =  n->getnodeid(); 

tempevent->queuenum  =  l->current->number; 

tempevent->assocproc  =  e->assocproc; 

eventqueue->enqueue(  tempevent); 

>; 


}; 


//Produces  write  queue  events  for  each  output  queue  if  node  is  not  an 

//output  node 

void  simulator::produce_writequeues(gnode  *n,event*  e){ 

intlist  *1; 

event  *  tempevent; 

1  =  n->getoutputqueuelist(); 

//If  node  is  an  output  node  finish  breakdown  after  fixed  amount  of  delay 

if  (n->getnodetype()  =  output)  { 
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tempevent=new  event; 
tempevent->eventname  =  finish_breakdown; 
tempevent->starttime  =  clock; 
tempevent->priority  =  tempevent->starttime; 
tempevent->nodenum  =  e->nodenum; 
tempevent->assocproc  =  e->assocproc; 
eventqueue->enqueue(tempevent); 

} 

else{ 
//If  node  is  an  internal  node  produce  write  queue  event  for  each  output 
//queue 
for(l->current=l->head;l->current;l->current=l->current->nextnode){ 

tempevent  =  new  event; 

tempevent->eventname  =  start_write_queue; 

tempevent->starttime  =  clock; 

tempevent->priority  =  clock; 

tempevent->nodenum  =  n->getnodeid(); 

tempevent->queuenum  =  l->current->number; 

tempevent->assocproc  =  e->assocproc; 

eventqueue->enqueue(tempevent); 


}; 


//Consumes  the  input  queues  by  decreasing  the  threshold  amount 
void  simulator: :consume_q(int  num){ 

intlist  *1; 

Queueltem  *temp; 

boolean  flag; 

gnode  *n,*m; 

temp=gqueuelist->getqueue(l->current->number); 

n=gnodelist->getnode(temp->nodeout); 

flag  =  temp->isthereenoughspace(); 

temp->currentlength=temp->currentlength-temp->getthreshold(); 

temp->readamount=temp->readamount-temp->getthresholdO; 
//If  consumption  makes  room  for  the  waiting  nodes 
if(!flag){ 

//get  source  node 

m  =  gnodelist->getnode(temp->nodein); 

if  (temp->isthereenoughspace()){ 
//If  all  output  qs  are  ready  and  if  source  node  is  waiting 


69 


//for  the  output  become  ready 

if  (arealloutputqsready(m)&&  m->waitingforoutput){ 

m->waitingnumber--; 

if  (m->waitingnumber  =  0) 
m->wairingforoutput  =  false; 

tempevent  =  new  event; 

tempevent->eventname=ready_node; 

tempevent->starttime=clock; 

tempevent->prioriry=clock; 

tempevent->nodenum=m->getnodeid(); 

eventqueue->enqueue(  tempevent); 

>; 


}; 


//If  sink  node  still  overthreshold  and  it  is  not  an  input  node 
//indicates  that  input  queues  are  still  overthreshold 
if  (areallqsot(n)&&(n->getnodetype()!=inpuf)){ 

increasereadamount(n); 

tempevent  =  new  event; 

tempevent->eventname=inqsoverthreshold; 

tempe  vent->starttime=c  lock; 

tempevent->priority=clock; 

tempevent->nodenum=n->gemodeid(); 

eventqueue->enqueue(tempevent); 


//Returns  boolean  if  all  input  queues  are  overthreshold 
boolean  simulator :areallqsot(gnode  *n){ 
Queueltem*  q; 

indist*  ql  =  n->getinputqueuelist(); 

for  (ql->current=ql->head;ql->current;ql->current=ql->current->nextnode)  { 
q  =  gqueuelist->getqueue(ql->current->number); 
if  ((q->currentlength-q->readamount)<  q->thresholdqry) 
return  false; 

}; 

return  true; 


//Increases  the  read  amount  of  input  nodes.  It  is  used  to  prevent,  input  queues 
//becomeoverthreshold  even  it  is  put  in  to  ready  list 
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void  simulator::increasereadamount(gnode  *n){ 
Queueltem*  q; 

intlist*  ql  =  n->getinputqueuelist(); 

for  (ql->current=ql->head;ql->current;ql->current=ql->current->nextnode){ 
q  =  gqueuelist->getqueue(ql->current->number); 
q->readamount  =  q->readamount  +q->consumptionqty; 


//Decreases  the  read  amount  of  input  queues 
void  simulator::decreasereadamount(gnode  *n){ 
Queueltem*  q; 

intlist*  ql  =  n->getinputqueuelist(); 

for  (ql->current=ql->head;ql->current;ql->current=ql->current->nexmode)  { 
q  =  gqueuelist->getqueue(ql->current->number); 
q->readamount  =  q->readamount  -q->consumptionqty; 

}; 
}; 

//Increases  the  write  amount  of  output  queues  to  prevent  putting  an  extra  ready 
//node  which  will  cause  overcapacity 
void  simulator::increasewriteamount(gnode  *n){ 
Queueltem*  q; 

intlist*  ql  =  n->getoutputqueuelist(); 

for  (ql->current=ql->head;ql->current:ql->current=ql->current->nexmode)  { 
q  =  gqueuelist->getqueue(ql->current->number); 
q->writeamount  =  q->writeamount  +q->productionqty; 

}; 
>; 

//Returns  true  if  all  outout  queues  has  enough  space  to  store  the  result  of 
//source  node  execution 

boolean  simulaton:arealloutputqsready(gnode  *n){ 
Queueltem*  q; 

intlist*  ql  =  n->getoutputqueuelist(); 

for  (ql->current=ql->head;ql->current;ql->current=ql->current->nextnode)  { 
q  =  gqueuelist->getqueue(ql->current->number); 
if  ((q->capacity  -  q->currentlength-q->writeamount)<  q->productionqty) 
return  false; 

}; 

return  true; 
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}: 


//Return  true  if  all  output  nodes  of  an  instance  is  executed  or  not 
boolean  simulator  :arealloutputnodesexecuted()  { 
for(gnodelist->current=  gnodelist->head; 
gnodelist->current; 

gnodelist->current=gnodelist->current->nextitem) 
if  (gnodelist->current->element->getnodetypeO==output) 
if  (gnodelist->current->element->executed=false) 
return  false; 
return  true; 


//Initialize  the  output  queues  execution  flag 
void  simulator: :  initializeoutputnodes()  { 

for(gnodelist->current=gnodelist->head; 
gnodelist->current; 

gnodelist->current=gnodelist->current->nextitem) 
if  (gnodelist-x;urrent->element->getnodetype()==output)  { 
gnodelist->current->element->exectimes— ; 
if  (gnodeust->current->element->exectimes==0) 
gnodelist->current->element->executed=false; 
}: 
I; 


//Prints  the  statistical  information 

void  simulator::printstatistics(fstream&  startfile,fstream&  endfile, 

int  instnum.int  endinst,double  drate,  double  tottime){ 
double  end, 
start, 

difference, 
sum, 

squaresum, 
average, 
variance; 
double  averageexectime  =0.0; 
double  averagebusytime  =0.0; 
fstreamaputil,thrput,lenvar,instlen,onlyexec; 
int  cnt=0; 
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COUt  <<  "********************************** ***********************\n"- 

COUt    «    "*****************************************************  ****\r.". 

cout «  "**  **\n"; 

cout «  "**  STATISTICS  **\n"; 

cout «  "**  **\n"; 

cout «  "**  **\n"; 

COIlt   <<    "*****************************************************  ****\r>". 

COUt  «  "*********************************************************\ri"' 

cout «  endl; 
cout«"PROCESSOR  ID :  PROCESSOR  TYPE  :  PROCESSOR  UTILIZATION(with  comnr.W 
for  (pl->current=pl->head;pl->current;pl->current=pl->current->nextproc)  { 
cout «"  "  «  pl->current->p->procid  «  "  "; 
cout «  pl->current->p->ptype  «  "  "; 

cout «  double((pl->current->p->durationprocbusy))/double(clock) «  endl; 
if(pl->current->p->gettype()!=io){ 
averageexectime  =  averageexectime  + 
double((pl->current->p->onlyexectime))/double(clock); 
averagebusytime  =  averagebusytime  + 
double((pl->current->p->durationprocbusy))/double(clock); 
cnt++; 

}; 
}; 

for  (gnodelist->current=gnodelist->head; 

gnodelist->current;gnodelist->current=gnodelist->current->nextitem) 
communication=communication+gnodelist->current->elernent->aissize*cornrn; 

for(gqueuelist->current=gqueuelist->head; 

gqueuelist->current;gqueuelist->current=gqueuelist->current->nextitem) 
communication=communication+ 
gqueuelist->current->element->consumptionqty*comm; 
startfile.open("starttimes",ios:  :in); 
endfile.open("endtimes",ios::in); 
aputil.open("grphutil"  40s : :  applios: :  out) ; 
ordyexec.open("grphexecnme",ios::applios::out); 
instlen.open("grphresptime",ios::applios::out); 
lenvar.open("grphinstlenvar",ios::applios::out); 
thrput.open("grphthroughput",ios::applios::out); 
sum  =  0; 
squaresum=0; 
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I: 


double  stime; 

for  ( int  loop=l;loop  <=instnum;loop++){ 

startfile  »  start; 

startfile  »  start; 

endfile  »  end; 

endfile  »  end; 

if  (loop  =  1) 
stime  =  end; 

difference  =  end  -  start; 

sum  =  sum  +  difference; 

squaresum  =  squaresum  +  (difference  *  difference); 

}; 

stime=end  -  stime; 
average  =  sum  /  double(instnum); 
cout «  "DATA  RATE  :"  «  drate  «  endl; 
cout «  "AVERAGE  RESPONCE  TIME  :"  «  average  «  endl; 
variance  =  (squaresum-(double(instnum)*sqr(average)))/double(insmum); 
startfile.close(); 
endfile.close(); 

cout «  "AVERAGE  THROUGHPUT :"  « ((instnum-l)*1000000)/stime«endl; 
cout «  "SIMULATION  TIME  :"«  clock  «  endl; 

cout «  "INSTANCE  LENGTH  STANDARD  VARIATION :"  «  sqrt( variance) «  endl; 
cout «  "COMMUNICATION  OF  ONE  INSTANCE  :"«communication; 
cout «  endl; 

cout «  "COMPUTATION  OF  ONE  INSTANCE  :"; 
cout « tottime«  endl; 

cout «  "COMMUNICATION  /  COMPUTATION  RATIO  :"; 
cout «  communication  /  tottime; 
cout «  endl; 
cout «  endl; 

aputil «  drate  «  "  "  «  averagebusytime/double  (cnt)  «endl; 
onlyexec«  drate  «  "  "  «  averageexectime/double  (cnt) «  endl; 
insden  «  drate  «  "  "  «  average  «  endl; 
thrput «  drate  «  "  "  «  ((instnum-l)*1000000)/stime«endl; 
lenvar  «  drate  «  "  "  «  sqrt(variance)/average  «  endl; 
aputil.  close(); 
onlyexec.close(); 
instlen.close(); 
lenvar.close(); 
thrput.closeO; 
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main(){ 

simulator  *s; 

s  =  new  simulator; 

s->simulate(); 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description    :  Event  Class  header  file. 

//  Date  :  12  November  1992 

// Last  Revised    :  03  January  1993 

#include  <iostream.h> 
#include  <fstream.h> 
#include  "global.h" 
#ifndefEVENT_H 
#define  EVENT_H 

class  event{ 
public: 

event(); 

event_type  geteventname(); 
int  getpriorityO; 

void  printevent(fstream&); 


event_type  eventname; 
double     starttime, 
priority; 

int  nodenum, 
queuenum, 
assocproc, 
assocmem; 


#endif 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  Event  Class  source  file. 

//  Date  :  12  November  1992 

//  Last  Revised   :  03  January  1993 

#include  "event.h" 

//Event  class  constructor 
event:  :event(){ 

eventname  =  none; 

starttime  =  0.0; 

priority  =  0.0; 

nodenum   =  0; 

queuenum  =0; 

assocproc  =  0; 

assocmem  =0; 

}; 

//Returns  the  events  priority 
int  event:  :getpriority(){ 
return  priority; 


//Returns  event  name 
event_type  event:  :geteventname(){ 
return  eventname; 

}; 

//Prints  the  event  to  the  log  file 

void  event: :printevent(fstream  &  logfile){ 

logfile  «  eventname  «"    "  «  starttime  «  "  "  «  priority  «  "  "  ; 

logfile  «  nodenum    «  "    "  «  queuenum  «  "     "  «  assocproc  «  "  Nn' 

logfile  «  assocmem  «endl; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description    :  GNODE  Class  (Graph  node). 

//  Date  :  12  November  1992 

// Last  Revised    :  03  January  1993 

#include  <fstream.h> 
#include  "ilist.h" 
#include  "qlist.h" 

#ifndefGNODE_H 
#define  GNODE_H 

class  gnode  { 
public: 

gnode(); 

~gnode(); 

int  loadnode(fstream&,int,int); 

int  getnodeid(); 

int  getnodepriorityO; 

int  getdataperiodO; 

int  getsetuptime(); 

int  getbreakdowntimeO; 

int  getexectime(); 

int  getdatarateO; 

void  incnumreadqs(); 

void  incnumwriteqsO; 

void  setnumreadqs(){ 
numreadqs=0; 

}; 

void  setnumwriteqs(){ 
numwriteqs=0; 

}; 

void  incnodeinstance(){ 
nodeinstance++; 


}; 


int  getnodeinstance(){ 
return  nodeinstance; 

boolean  lastnoderead(); 
boolean  lastqueuewriteQ; 
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proctype  getproctype(); 

proctype  getaltproctypeO; 

intlist*  getinputqueuelist(); 

intlist*  getoutputqueuelist(); 

friend  ostream&  operator«(ostream&,gnode&); 

boolean  operator<(gnode&); 

nodetype  getnodetype(); 

//private: 

int  nodeid, 
priority, 
memid, 
aissize, 
lastinstance, 
dataperiod, 
numreadqs, 
numwriteqs, 
total  inqs, 
totaloutqs, 
exectime, 
setuptime, 
breakdown, 
nodeinstance, 
waitingnumber, 
readycount, 
exectimes, 
order; 

double  proctime; 
boolean  processing, 

waiungforoutput, 

executed; 

nodetype  ntype; 
proctype  protype, 

altproctype; 
intlist  *inqlist, 

*outqlist; 


#endif 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  GNODE  Class  source  code. 

//Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 

#include  <stdlib.h> 
#include  "gnode. h" 
#include  <iostream.h> 

//Gnode  class  contructor 
gnode::gnodeO{ 

proctime  =  0.0; 

nodeid  =  0; 

priori  ty=0; 

memid  =  0; 

aissize=0; 

lastinstance=0; 

nodeinstance=-l; 

exectime=0; 

setuptime=0; 

breakdown=0; 

dataperiod=0; 

ntype  =  instruction; 

protype  =  inst; 

altproctype  =  inst; 

readycount  =  0; 

numreadqs  =  0; 

numwriteqs  =  0; 

totalinqs  =  0; 

totaloutqs  =  0; 

waitingnumber  =  0; 

inqlist  =NULL; 

outqlist  =  NULL; 

processing  =  false; 

waitingforoutput  =  false; 

executed  =  false; 


//Gnode  class  destructor 
gnode: :~gnode()  { 
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delete  inqlist; 
delete  outqlist; 
inqlist  =  NULL; 
outqlist  =  NULL; 


//Loads  a  single  graph  node  from  given  stream 

int  gnode::loadnode(fstream&  grphfUe,int  pchoice,  int  gid){ 

int  ttype, 

extime; 

srand(int(time(NULL))); 
grphfile  »  nodeid; 
grphfile  »  ttype; 
ntype  =  nodetype(ttype); 
memid  =  gid; 
grphfile  »  aissize; 
grphfile  »  exectime; 
extime  =  exectime; 
if  (ttype  !=  0) 
extime  =  0; 
grphfile  »  setuptime; 
grphfile  »  breakdown; 
grphfile  » ttype; 


switch  (pchoice)  { 
case  1  :{ 
priority  =  exectime; 
break; 

}; 
case  2 :{ 

priority  =  -  aissize; 

break; 

}; 

case  3  :{ 

cout «  "ENTER  NODE  PRIORITY 
cin  »priority; 
cout «  endl; 
break; 
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case  4 :  { 

priority  =  rand(); 
break; 

I: 

case  5  : 
break; 

>; 

switch  (ttype){ 
caseO:{ 

protype  =  inst; 
break; 

}; 

case  1:{ 

protype  =  io; 
break; 

}; 

case  2:  { 

protype  =  sec; 
break; 

}; 
case  3:  { 

protype  =  three; 

break; 

>; 

case  4:  { 

protype  =  four; 

break; 
}; 
case  5:  { 

protype  =  five; 

break; 
}; 

case  6:  { 

protype  =  six; 
break; 

}; 

case  7;  { 

protype  =  seven; 
break; 

}; 
case  8:  { 
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protype  =  eight; 
break; 


grphfile  »  ttype; 
switch  (ttype)  { 
caseO:{ 

altproctype  =  inst; 

break; 

}; 
case  1:{ 

altproctype  =  io; 

break; 

}; 

case  2:  { 

altproctype  =  sec; 
break; 

}; 
case  3:{ 

altproctype  =  three; 

break; 

}; 

case  4:  { 

altproctype  =  four, 
break; 

}: 
case  5:{ 

altproctype  =  five; 

break; 
}; 
case  6:  { 

altproctype  =  six; 

break; 
>; 

case  7:  { 

altproctype  =  seven; 
break; 

}; 
case  8:  { 

altproctype  =  eight; 

break; 
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inqlist  =  new  intlist; 
outqlist  =  new  intlist; 

return  extime; 


I: 


//Prints  a  graph  node 

ostream&  operator«(ostream&  os,gnode&  g)  { 

os  «  "  ID  :"  «  g.nodeid  «  "node  type:"  «  g.ntype  «  endl; 

os  «  "AIS  :"  «  g.aissize  «  "  Exe  time  :"  «  g.exectime  «  endl; 

os  «  "setup  time"  «  g.setuptime  «  endl; 

os  «  "Memory  :  "«g.memid«endl; 

os  «  *g. inqlist «  endl; 

os  «  *g.outqlist «  endl; 
I*        os  «  "  priority  :"  «  g.priority  «  endl; 

os  «  "proctype  :"  «  g.protype«"  altproctype  "  «g.altproctype«endl;*/ 
return  os; 


//Returns  input  queue  list 
intlist*  gnode::getinputqueuelist(){ 
return  inqlist; 

>: 

//Returns  output  queue  list 
intlist*  gnode::getoutputqueuelist(){ 
return  outqlist; 

}; 

//Returns  node  id 
int  gnode::getnodeid(){ 
return  nodeid; 

}; 
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//Returns  node  priority 
int  gnode::getnodepriority(){ 
return  priority; 


//Returns  dataperiod 
int  gnode::getdataperiod(){ 
return  dataperiod; 

}; 

//Returns  setuptime 
int  gnode::getsetuptime(){ 
return  setuptime; 

}; 

//Returns  processor  type  that  node  can  run  on 
proctype  gnode::getproctype(){ 
return  protype; 


//Returns  alternative  processor  type  that  node  can  run  on 
proctype  gnode::getaltproctype(){ 
return  altproctype; 


//Returns  dataperiod 
int  gnode::getdatarate(){ 
return  dataperiod; 


//Returns  Node  execuiton  time 
int  gnode::getexectime(){ 
return  exectime; 

}; 

//Increments  number  of  queues  that  are  already  read 
void  gnode::incnumreadqs(){ 
numreadqs-H-; 

}; 
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//Increments  number  of  queues  that  are  already  written 
void  gnode::incnumwriteqs(){ 
numwriteqs-H-; 

}; 

//Returns  true  if  last  input  queue  of  the  node  has  been  read 
boolean  gnode::lastnoderead(){ 
if  (numreadqs=totalinqs) 

return  true; 
else 
return  false; 

1; 

//Returns  true  if  the  last  output  queue  of  the  node  has  been  written 
boolean  gnode::lastqueuewrite(){ 
if  (numwriteqs=totaloutqs) 

return  true; 
else 
return  false; 


//Returns  the  fixed  breakdown  time 
int  gnode::getbreakdowntime(){ 
return  breakdown; 

>: 


//Returns  the  node  type 
nodetype  gnode::getnodetype(){ 
return  ntype; 

}; 

boolean  gnode::operator<(gnode&  n){ 
if  (n.order>  order) 

return  true; 
else 

return  false; 

I; 
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#include  "global.h" 
#include  <fstream.h> 
class  nlist; 

#ifndef  QUEUEITEM_H 
#define  QUEUEITEM_H 
class  Queueltem{ 
public  : 

Queueltem(); 

void  loadqueue(fstream&,int,  nlist*); 

int  getgmid(); 

int  getthresholdO; 

int  getsinknode(); 

int  getsourcenode(){ 
return  nodein; 

}; 

int  getproductionqtyO; 
boolean  isoverthresholdO; 
boolean  isthereenoughspace(){ 

if  ((capacity  -  currentlength-writeamount)  >=  productionqty) 

return  true; 
else 
return  false; 

}; 

void  inccurrentlength(int); 

friend  ostream  &  operator«(ostream&,QueueItem&); 

//  private : 

friend  class  Qlist; 
int     queueid, 

gmid, 

nodein, 

nodeout, 

thresholdqty, 

consumptionqty, 

capacity, 

currentlength, 

productionqty, 

writeamount, 

readamount; 
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boolean  overthreshold, 
overcapacity; 

queuetype  qtype; 

}: 

#endif 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  GQUEUE  Class  Header  file(Graph  Queue). 

//  Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 

#include  <iostream.h> 
#include  "gqueue.h" 
#include  "nlist.h" 

//Constructor 

QueueItem::QueueItem()  { 
queueid  =  0; 
gmid=  1; 
nodein  =  0; 
nodeout  =  0; 
thresholdqty  =  0; 

currentlength=0; 
capacity  =  0; 

writeamount=0; 

productionqty=0; 

readamount=0; 
overthreshold  =  false; 
overcapacity  =  false; 

qtype  =  data; 


//Loads  one  queue  from  given  stream 

void  QueueItem::loadqueue(fstream&  grphfile,int  gid,nlist*  nodelist){ 

int  temp; 
grphfile  »  queueid; 
grphfile  » temp; 
if  (temp=0) 

qtype  =  syn_arc; 
else 
qtype  =  data; 
grphfile  »  nodein; 

for  (nodelist->current  =  nodelist->head; 
nodelist->current; 

nodelist->current=nodelist->current->nextitem){ 
if  (nodelist->current->element->getnodeid()=nodein)  { 
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nodelist->current->element->outqlist->addtolist(queueid); 
nodelist->current->element->totaloutqs++; 


grphfile  »  nodeout; 

for  (nodelist->current  =  nodelist->head; 
nodelist->current; 

nodelist->current=nodelist->current->nextitem){ 
if  (nodelist->current->element->getnodeid()=nodeout)  { 
nodelist->current->element->inqlist->addtolist(queueid); 
nodelist->current->element->totalinqs++; 


grphfile  » thresholdqty; 
grphfile  »  currentlength; 

grphfile  »  productionqty; 

consumptionqty=productionqty; 

grphfile  »  capacity; 
if  (currentlength  >=  thresholdqty) 
overthreshold  =  true; 

gmid  =  gid; 


//Returns  Memory  id  that  queue  is  assigned 
int  Queueltem::getgmid(){ 
return  gmid; 


//Returns  threshold  Quantity 
int  QueueItem::getthreshold(){ 
return  thresholdqty; 


//Prints  a  queue 

ostream&  operator«(ostream&  os,QueueItem&  q)  { 

os  «  "ID  :"  «  q.queueid  «  "NODE  IN  "  «  q.nodein  «  "NODEOUT  "  «  q.nodeout «  endl; 
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os  «  "MEMORY  :"  «  q.gmid«endl; 

os  «  "THRES  :  "  «  q.thresholdqty  «  endl: 

os  «  "CAPAC  :  "  «  q.capacity  «  "DATARATE  "  «  endl; 

os  «  "LENGTH  "  «  q.currentlength  «  "overthreshold  :"  «  q.overthreshold  «endl; 


return  os; 


//Increments  the  current  length  of  the  queue  by  production  quantity 

void  Queueltem::inccurrentlength(int  t){ 
currentlength=currentlength+t; 
if  (currentlength  >=  thresholdqty) 

overthreshold  =  true; 
else 

overthreshold  =  false; 

}; 

//Returns  sink  node 
int  QueueItem::getsinknode(){ 
return  nodeout; 

}; 

//Returns  true  if  queue  is  overthreshold 
boolean  QueueItem::isoverthreshold(){ 

if  ((curTentlength-readamount)>=thresholdqty) 

return  true; 
else 
return  false; 


//  Returns  production  quantity 
int  QueueItem::getproductionqty(){ 
return  productionqty; 

}; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description    :  NLIST  CLASS  header  file(Node  List). 

//  Date  :  12  November  1992 

//  Last  Revised   :  03  January  1993 

#include  "gnode.h" 
#include  "qlist.h" 
#include  <fstream.h> 

#ifndefNLIST_H 
#define  NLIST_H 

class  nlist{ 
public: 

nlist(); 

~nlist(); 

gnode  *getnextnode(){ 

return  current->nextitem->element; 

>; 

int  sort_topologically(Qlist*); 

gnode*  getnode(int); 

int  loadnodes(fstream&,fstream&,int,int); 

friend  ostream&  operator«(ostream&,nlist&); 


struct  nitem{ 

gnode  *element; 
nitem  *nextitem; 

}; 

nitem  *head, 
*current; 


}; 

#endif 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  NLIST  CLASS  source  code. 

//  Date  :  12  November  1992 

// Last  Revised    :  03  January  1993 

#include"pnqueue.h" 
#include"nlist.h" 

//Constructor 
nlist::nlist(){ 

head  =  NULL; 

current=  NULL; 


//Destructor 
nlist::~nlist(){ 

delete  head; 

delete  current; 

head  =  NULL; 

current  =NULL; 


//Loads  graph  nodes 

int  nlist::loadnodes(fstream&  grphfile,fstream&  mem.int  choicejnt  nummem){ 

int  num  nodes  =  0; 

int  exectime  =  0; 

int  gid; 

nitem  *tempn; 

grphfile  »  numnodes; 
for  (int  loop  =  l;loop  <=  numnodes;loop++){ 
mem  »  gid; 
gid  =  gid  %  nummem+1; 
tempn=  new  nitem; 
tempn->element  =  new  gnode; 
if  (head  =  NULL){ 

exectime=exectime+tempn->element->loadnode(giphfile,choice,gid); 
current  =  head  =  tempn; 
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else{ 
exectime=exectime+tempn->element->loadnode(grphfile,choice,gid); 
current->nextitem  =  tempn; 
current  =  current->nextitem; 


return  exectune; 


}; 


//Get  the  node  whose  id  number  is  given 
gnode  *  nlist::getnode(int  nid){ 

for  (current=head;current;current=current->nexti  tern) 
if  (current->element->getnodeid()=nid) 
return  current->element; 
if  (current  =  NULL) 
cerr  «nid«  "***ERROR  undefined  node  id\n"; 


}; 


//Prints  a  node 

ostream&  operator«(ostream&  os,nlist&  n){ 
if(n.head==NULL) 

os  «  "LIST  IS  EMPTYW; 
else{ 

for(n.current=n.head;n.current;n.current=n.current->nextitem) 
os  «  *n.current->element «  endl; 

}; 

return  os; 

}; 

int  nlist::sort_topologically(Qlist  *qlst){ 
int  count, 

loop; 
int  g_label  =  1 ; 
int  in_degrees[100]; 
intnodes[100][2]; 
pnqueue  *q; 


intlist  *ql; 
intnode  *tempnode; 
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Queueltem  *qu; 

gnode  *nd; 

count  =  0; 

q  =  new  pnqueue; 

for  (current=head;ciirrent;current=current->nextitem)  { 

nodes[count][l]  =  current->element->nodeid; 

cout «  nodes[count][l]  «  "  "«  current->element->totalinqs«endl; 

in_degrees[count]  =  current->element->totalinqs; 

count++; 

}; 

count—; 

for  (loop  =0;loop<=  count;Ioop++) 
if  (in_degrees[loop]  ==  0){ 

tempnode  =  new  intnode; 
tempnode->nid=nodes[loop]  [  1  ] ; 
tempnode->priority=0; 
q->enqueue(tempnode); 

}; 

while  (tempnode=q->dequeue()){ 
for  (loop=0;loop<=count;loop++) 
if  (tempnode->nid=nodes[loop][l]) 
nodes[loop]  [2]=g_label; 
nd  =  getnode(tempnode->nid); 
nd->order  =  gjabel; 
ql  =  nd->getoutputqueuelist(); 

for  (ql->current=ql->head;ql->cuiTent;ql->current=ql->current->nextnode)  { 
qu  =  qlst->getqueue(ql->current->number); 
for  (loop=0;loop<=count;loop-H-) 
if  (qu->nodeout=nodes[loop][l]){ 
in_degrees[loop]=in_degrees[loop]- 1 ; 
if  (in_degrees[loop]==0)  { 
tempnode  =  new  intnode; 
tempnode->nid=nodes[loop]  [  1  ] ; 
tempnode->priority=0; 
q->enqueue(tempnode); 

}; 
}; 


}; 
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g_Iabel  =  g_label  +1; 


for(current=head;current;current=current->nextitem) 
cout «  current->element->nodeid«"--"«current->element->order«endI; 

return  gjabel  -  1; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  QLIST  CLASS  header  file(Graph  Queue  List). 

//  Date  :  12  November  1992 

//Last  Revised   :  03  January  1993 

#include  "gqueue.h" 

#ifndefQLIST_H 
#define  QLIST_H 

class  Qlist{ 
public: 

Qlist();  //constructor 

~Qlist();         //destructor 

Queueltem  *getnextqueue(){ 
return  current->nextitem->element; 

}; 

Queueltem  *  getqueue(int); 

void  loadqueues(fstream&,fstream&,nlist*,int); 

friend  ostream&  operator«(ostream&,Qlist&); 

//private: 

struct  qitem{ 

Queueltem  *element; 
qitem  *nextitem; 

}; 

qitem  *head, 
*current; 


#endif 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  QLIST  CLASS  source  file. 

//  Date  :  12  November  1992 

//  Last  Revised   :  03  January  1993 

#include  "qlist.h" 

//constructor 
Qlist::Qlist(){ 

head  =  NULL; 

current  =  NULL; 

} 

//Destructor 
Qlist::~Qlist(){ 

delete  head; 

delete  current; 

head  =  NULL; 

current  =  NULL; 


//Loads  graph  queues  from  file  namely  simdata 

void  Qlist::loadqueues(fstream  &grphfile,fstream  &memjilist*  nolist,int  nummem){ 
int  numqueues  =  0; 
qitem  *tempq; 
intgid; 

grphfile  »  numqueues; 
for  (int  loop  =  l;loop  <=  numqueues;  loop++)  { 
mem»gid; 

gid  =  gid%nummem+l; 
tempq  =  new  qitem; 
tempq->element  =  new  Queueltem; 
if  (head  =  NULL)  { 

tempq->element->loadqueue(grphfile,gid,nolist); 
current  =  head  =  tempq; 

I 

else{ 
tempq->element->loadqueue(grphfile,gid,nolist); 
current->nextitem  =  tempq; 

current  =  current->nextitem; 
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//Returns  the  graph  queue  whose  id  is  given 
Queueltem*  Qlist::getqueue(int  quid){ 

for  (current=head;current;current=current->nextitem) 
if  (current->element->queueid  ==  quid) 
return  current->element; 
if  (current  ==  NULL) 
cerr  «  "****ERROR  NO  SUCH  QUEUED"; 


//Prints  the  graph  queue  list 
ostream&  operator«(ostream&  os,Qlist&  q){ 
if  (q.head  =  NULL) 
os  «  "QUEUE  IS  EMPTY"  «  endl; 

else{ 
for(q.current=q.head;q.current;q.curTent=q.current->nextitem) 
os  «  *q.current->element «  endl; 

} 

return  os; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  MEMORY  Class  Header  file. 

//Date  :  12  November  1992 

// Last  Revised    :  03  January  1993 

#include  "global.h" 


class  memory! 
public: 

memoryO; 

void  setbusytill(double); 

void  setbusy(boolean); 

boolean  isbusy(); 

int  getmemidO; 

int  getbusytime(); 

void  setobjectid(int); 

private: 

double       busytill; 
int  memid, 

capacity, 
granularity, 
setuptime, 
bandwith; 

status_type  status; 
boolean      busy; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  LGDF  machine  simulator  class. 

//  Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 

#include<iostream.h> 
#include"memory.h" 

//Constructor 
memory: :  memoryO  { 

mem  id  =  0; 

busytill  =  0; 

capacity  =  0; 

granularity  =  0; 

setuptime  =  0; 

bandwith  =  0; 

status  =  active; 

busy  =  false; 


//Updates  the  busy  time  if  it  is  in  the  future 
void  memory:  :setbusytill(double  t){ 
busytill  =  t; 

}; 

//Set  the  given  boolean  value 
void  memory:  :setbusy(boolean  value)  { 
busy  =  value; 

}; 


//Returns  true  if  the  memory  is  busy 
boolean  memory::isbusy0{ 
return  busy; 


//Returns  memory  id 
int  memory:  :getmemid(){ 
return  memid; 

}; 
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//Returns  the  time  that  memory  will  stay  busy 
int  memory:  :getbusytime(){ 
return  busytill; 


//Sets  the  given  number  as  object  id 
void  memory:  :setobjectid(int  t){ 
memid  =  t; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  MUST  CLASS  (Memory  list). 

//  Date  :  12  November  1992 

//  Last  Revised   :  03  January  1993 

#include"memory.h" 
#include<fstream.h> 

class  mlist  { 
public: 

mlist(); 

~mlist(); 

void  addtolist(memory  *); 

memory*  getmem(int); 

int  loadmemory(fstream&); 

private: 

struct  mem  node  { 
memory*  m; 
mem  node*  nextmem; 


memnode*  head, 
*  current; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  MLIST  CLASS  source  code. 

//  Date  :  12  November  1992 

// Last  Revised    :  03  January  1993 

#include  <iostream.h> 
#include  "mlist.h" 
extern  "C"{ 
exit(int); 

} 

//Constructor 
mlist::mlist(){ 

head  =  NULL; 

current  =  NULL; 

}; 

//Destructor 
mlist::~mlist(){ 

delete  head; 

delete  current; 

head  =  NULL; 

current  =  NULL; 

}; 

//Adds  given  memory  to  the  list 
void  mlist::addtolist(memory  *  mem){ 
if  (head  ==  NULL)  { 

head  =  new  memnode; 

head->m  =  mem; 

current  =  head; 

I 
else  { 

for  (current=head;cuiTent->nextmem;current=current->nextmem); 

current->nextmem  =  new  memnode; 

current->nextmem->m  =  mem; 

}; 


}; 
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//Returns  the  memory  whose  id  is  given 
memory  *  mlist::getmem(int  mid){ 

for  (current=head;current;current=current->nextmem) 
if  (current->m->getmemid()=mid) 
return  current->m; 
cout «  mid  «  "  there  is  no  such  memory"; 
if  (current  =  NULL) { 
exit(l); 
cerr  «  "***ERROR  undefined  memory  id\n"; 


//Loads  memories 

int  mlist::loadmemory(fstream&  grphfile){ 
int  nummemory=0; 
memnode*  temp; 
grphfile  »  nummemory; 
for  (int  loop=l;loop<=nummemory;loop++){ 
temp=new  memnode; 
temp->m=new  memory; 
temp->m->setobjectid(loop); 
if  (head  =  NULL) 

current  =  head  =temp; 
else{ 
current->nextmem=temp; 
current=current->nextmem; 


cout  «nummemory; 

return  nummemory; 

}; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  PROCESSOR  CLASS  header  file. 

//Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 


#include  "global.h" 

#ifndef  PROCESSOR_H 
#definePROCESSOR_H 

class  processor { 
public: 

processorO; 

void  setsetupbusytill(double); 

void  setexecbusytill(double); 

voidsetbreakdownbusytill(double); 

void  setsetupbusy(boolean); 

void  setexecbusy(boolean); 

void  setbreakdownbusy  (boolean); 

void  setfree(boolean); 

void  setproctype(int); 

void  setobjectid(int); 

boolean  isfree(); 

boolean  issetupbusyO; 

boolean  isexecbusyO; 

boolean  isbreakdownbusyO; 

proctype  gettype(); 

double  getsetupbusytimeO; 

double  getbreakdownbusytime(); 

double  getexecbusytimeO; 

int  getprocidO; 

//private: 

proctype  ptype; 
double    setupbusytill, 
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execbusytill, 

breakdownbusytill, 

durationprocbusy, 

onlyexectime, 

startutil; 


int  procid, 
speed; 

status_type  status; 

boolean  readinginprocess, 
writeinprocess, 
waitingonsetup, 
waitingonexec, 
free, 

setupbusy, 
execbusy, 
breakdownbusy, 
pendingsetup, 
pendingbreakdown; 


#endif 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  PROCESSOR  CLASS  source  file. 

//  Date  :  12  November  1992 

//  Last  Revised    :  03  January  1993 


#include<iostream.h> 
#include"processor.h" 

//Constructor 

proc  essor : :  processor( )  { 

ptype  =  inst; 

proc  id  =  0; 

setupbusytill  =  0; 

execbusytill  =  0; 

breakdownbusytill  =0; 

durationpTocbusy=0; 

startutil  =  0; 

setupbusy  =  false; 

execbusy  =  false; 

readinginprocess=false; 

writeinprocess=false; 

setupbusy=false; 

execbusy  =  false; 

breakdownbusy  =  false; 

pendingsetup  =  false; 

pendingbreakdown  =  false; 

speed  =  0; 

status  =  active; 

free  =  true; 

waitingonsetup  =  false; 

waitingonexec  =  false; 


//Updates  the  busy  time  of  the  setup  stage 
void  processor:  :setsetupbusytill(double  t){ 
if  (setupbusytill  <  t) 
setupbusytill  =  t; 
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//Updates  the  busy  time  of  execution  stage 
void  processor::setexecbusytill(double  t){ 
if  (execbusytill  <  t) 
execbusytill  =  t; 

}; 


//Updates  the  breakdown  stage  busy  time 
void  processor:  :setbreakdownbusytill(double  t){ 
if  (breakdownbusytill  <  t) 
breakdownbusytill  =  t; 


//Sets  setup  busy  flag  to  the  given  boolean  value 
void  processor:  rsetsetupbusy (boolean  value)  { 
setupbusy  =  value; 


//Sets  execution  stage  flag  to  the  given  boolean  value 
void  processor::setexecbusy(boolean  value){ 
execbusy  =  value; 


//Sets  breakdown  busy  flag  to  the  given  boolean  value 
void  processor:  :setbreakdownbusy (boo lean  value)  { 
breakdownbusy  =  value; 

}; 


//Sets  the  processor  free  flag  to  the  given  boolean  value 
void  processor:  :setfree(boolean  value)  { 
free  =  value; 


//Returns  true  if  the  processor  is  free 
boolean  processor::isfree(){ 
return  free; 
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//Returns  true  if  setup  stage  is  busy 
boolean  processor:  :issetupbusy(){ 
return  setupbusy; 


//Returns  true  if  the  execution  stage  is  busy 
boolean  processor: :isexecbusy(){ 
return  execbusy; 


//Returns  true  if  breakdown  stage  is  busy 
boolean  processor: :  isbreakdo wnbus  y( )  { 
return  breakdownbusy; 


//Returns  the  processor  id 
int  processor:  :getprocid(){ 
return  procid; 

}; 

//Returns  time  that  setup  stage  will  stay  busy 
double  processor:  :getsetupbusy time()  { 
return  setupbusytill; 


//Returns  time  that  execution  stage  will  stay  busy 
double  processor:  :getexecbusytime(){ 
return  execbusytill; 


//Returns  time  that  breakdown  stage  will  stay  busy 
double  processor:  :getbreakdownbusytime()  { 
return  breakdownbusytill; 


//Returns  processor  type 
proctype  processor :gettype(){ 
return  ptype; 

}; 

//Sets  the  object  id  to  the  given  value 
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void  processor: :setobjectid(int  t){ 
procid  =  t; 

}; 

//Sets  the  processor  type  according  to  given  integer  value 
void  processor:  :setproctype(int  t){ 
switch  (t){ 
caseO:{ 


ptype  =  in 

st; 

break; 

}; 

case 

ptype  =  io 
break; 

i* 

}; 

case 

>2:[ 

ptype  =  sec; 

break; 

}; 

case 

:3:{ 

ptype  = 

three; 

break; 

}; 

case 

S4:{ 

ptype  = 

four; 

break; 

}; 

case 

;5:{ 

ptype  = 

five; 

break; 

}; 

case 

:6:{ 

ptype  = 

six; 

break; 

}; 

case  7:  { 

ptype  = 

seven; 

break; 

}; 

case  8:  { 

ptype  = 

eight; 
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break; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  PLIST  CLASS  header  file(Processor  list). 

//  Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 

#include"processor.h" 


#include<fstream  .h> 
#ifndefPLIST_H 
#define  PLIST_H 
class  plist  { 
public: 

plistO; 

~plist(); 

void  addtolist(processor*); 

processor*  getproc(int); 

int  loadprocessors(fstream&,int); 
//private: 

struct   procnode{ 
processor*  p; 
procnode*  nextproc; 

}; 

procnode*  head, 
*  current; 

}; 

#endif 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  PLIST  CLASS  source  file. 

//  Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 

#include  <iostream.h> 
#include  "plist.h" 
#include  <fstream.h> 

//Constructor 
plist::plist(){ 

head  =  NULL; 

current  =  NULL; 

}; 

//Destructor 
plist::~plist(){ 

delete  head; 

delete  current; 

head  =  NULL; 

current  =  NULL; 


//Adds  given  processor  to  processor  list 
void  plist::addtolist(processor  *  proc){ 
if  (head  ==  NULL)  { 

head  =  new  procnode; 

head->p  =  proc; 

current  =  head; 

} 
else  { 

for  (current=head;current->  nextproc  ;c  urrent=curren  t->nextproc ) ; 

current->nextproc  =  new  procnode; 

current->nextproc->p  =  proc; 

>; 


}; 


//Returns  the  processor  whose  id  is  given 
processor*  plist::getproc(intpid){ 
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for(current=head;current;current=current->nextproc) 

if  (current->p->getprocid()=pid) 
return  current->p; 
if  (current  =  NULL)  { 

cout  «"***ERROR  undefined  processor  id\n"; 


//Loads  processor  from  given  stream 

int  plist::loadprocessors(fstream&  grphfile,int  numprocs){ 

int    prtype; 

int  proccnt  =  0; 

procnode*  temp; 

for  (int  loop=l;loop  <=  numprocs;loop++)  { 
temp  =  new  procnode; 
temp->p=  new  processor, 
temp->p->setobjectid(loop); 
grphfile  »  prtype; 
if  (prtype  !=  1) 

proccnt++; 
temp->p->setproctype(prtype); 
if  (head  ==NULL) 

current=head=temp; 
else{ 

current->nextproc=temp; 

current=current->nextproc; 

}; 
}; 

return  proccnt; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  SCHEDULER  CLASS  header  file. 

//  Date  :  12  November  1992 

//  Last  Revised    :  03  January  1993 

#include  "pnqueue.h" 
#include  "gnode.h" 
#include  "nlist.h" 
#include  "plist.h" 
#include  "pqueue.h" 
class  scheduler  { 
public  : 

scheduler(); 

~scheduler(); 

void  putnodeinrl(gnode*  ); 
void  putprocinfl(int); 
void  printreadylist(); 
void  printproclist(); 
boolean  isbusy(); 
void  setbusy(boolean); 
int  getbusytillO; 
int  getnodefromrl(); 
void  setbusyull(int); 

void  schedule_node(nlist*  ,plist*  ,pqueue*  .double) ; 
boolean  emptyrl(); 
boolean  member(int); 
//private: 

policy_type  policy; 

double  processorid, 

busytill, 
schedulingtime; 

boolean      busy; 

pnqueue*     readynodelist, 
*      freeproclist; 


}; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  SCHEDULER  CLASS  source  code. 

//  Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 

#include  <iostream.h> 
#include  "scheduler.h" 
#include  "global. h" 
#include  "event.h" 


//Constructor 
scheduler: :  scheduled)  { 

policy  =  synhronized; 

processorid  =  0; 

schedulingtime  =  0; 

readynodelist  =  new  pnqueue; 

freeproclist  =  new  pnqueue; 


//Destructor 
scheduler: :  ~scheduler()  { 

delete  readynodelist; 

readynodelist=NULL ; 


//Puts  the  given  graph  node  to  the  ready  node  list 
void  scheduler:  :putnodeinrl(gnode*  n){ 

intnode*  tempnode=new  intnode; 
//         n->priority  =  n->nodeinstance*(-l); 

tempnode->setnode(n->getnodeid()ji->getnodepriority()); 

readynodelist->enqueue(tempnode); 

}; 

//Puts  the  given  processor  to  the  free  processor  list 
void  scheduler::putprocinfl(int  pid){ 

intnode*  tempnode=new  intnode; 

tempnode->setnode(pid,0); 

freeproclist->enqueue(tempnode); 

}; 
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//Sets  scheduler  busy  flay  to  the  given  boolean  value 
void  scheduler: :setbusy (boolean  value)  { 
busy  =  value; 


//Returns  true  if  the  scheduler  is  busy 
boolean  scheduler: :isbusy(){ 
return  busy; 


//Returns  the  time  that  scheduler  will  be  busy 
int  scheduler:  :getbusytill(){ 
return  busytill; 

}; 

//Returns  a  node  from  ready  node  list  if  queue  is  empty  return  -1 
int  scheduler::getnodefromrl(){ 
intnode*  temp; 

temp=readynodelist->dequeueO; 
if(temp!=NULL) 

return  temp->geteid(); 
else 
return  -1; 

}; 

//Updates  the  scheduler  busy  time  to  the  given  value 
void  scheduler:  :setbusytill(int  t){ 
busytill=t; 


//Returns  true  if  the  ready  node  list  is  empty 
boolean  scheduler::emptyrl(){ 

if  (readynodelist->head  ==  NULL) 

return  true; 
else 
return  false; 

}; 

//Schedules  a  node  from  ready  list  by  matching  it  to  a  free  processor  and 

118 


//  produces  start  setup  event  .First  it  tries  to  find  a  node  which  is  not 

//currently  executing 

void  scheduler::schedule_node(nlist*  nl,plist  *pl,pqueue*  eventqueue.double  clck){ 

event*  tempevent=  new  event; 
gnode*  n; 
processor  *p; 
pnqueue::item*  previous, 
*  previous2; 


if  (readynodelist->head  !=  NULL){ 
previous  =  NULL; 
for  (readynodelist->current=readynodelist->head; 

readynodelist->current; 

readynodelist->current=  readynodelist->current->nextitem)  { 

n  =  nl->getnode(readynodelist->current->nbdeitem->geteid()); 

if  (!(n->processing)){ 

previous2  =  NULL; 

for  (freeproclist->current=freeproclist->head; 
freeproclist->current; 
freeproclist->current=freeproclist->current->nextitem){ 

p  =  pl->getproc(freeproclist->current->nodeitem->geteidO); 
if((n->getproctype()=p->gettype())  II 
(n->getaltproctype()  =  p->gettype() )){ 

busy  =  true; 

busytill  =  clck+schedulingtime; 

tempevent->eventname=free_scheduler; 

tempevent->starttime=busytill; 

tempevent->priority  =busytill; 

eventqueue->enqueue(tempevent); 

if  (previous2  ==  NULL) 

freeproclist->head=freeproclist->current->nextitem; 
else 

previous2->nextitem=freeproclist->current->nextitem; 


119 


if  (previous  ==  NULL) 

readynodelist->head=readynodelist->current->nextitem; 
else 

previous->nextitem=readynodeust->current->nextitem; 

p->setftee(false); 

n->processing=  true; 

n->execnmes-H-; 

n->nodeinstance++; 

tempevent=  new  event; 

tempevent->eventname=start_setup; 

tempevent->starttime=clck; 

tempevent->priority  =clck; 

tempevent->nodenum  =n->getnodeid(); 

tempevent->assocproc=p->getprocid(); 

eventqueue->enqueue(tempevent); 
I*  if(p->gettype()!=io){ 

cout «  "PROCESSOR  ID  :"«tempevent->assocproc; 

cout «  "  NODE  ID      :"«tempevent->nodenum«endl; 

return ; 

}; 

previous2  =  freeproclist->Current; 

}; 
I* 

for  (pl->current=pl->head;pl->current;pl->current=pl->current->nextproc)  { 

if((n->getproctype()=pl->current->p->gettype())  II 
(n->getaltproctypeO  =  pl->current->p->gettype() )){ 
if  (pl->current->p->isfree()){ 

busy  =  true; 

busytill  =  clck+schedulingtime; 

tempevent->eventname=free_scheduler; 

tempevent->starttime=busytill; 

tempevent->priority  =busytiU; 

eventqueue->enqueue(tempevent); 

if  (previous  ==  NULL) 
readynodelist->head=readynodelist->current->nextitem; 
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else 
previous->nextitem=readynodelist->current->nextitem; 


pl->current->p->setfree(false); 

n->processing=  true; 

n->exectimes-H-; 

n->nodeinstance++; 

tempevent=  new  event; 

tempevent->eventname=start_setup; 

tempevent->starttime=clck; 

tempevent->priority  =clck; 

tempevent->nodenum  =n->getnodeid(); 

tempevent->assocproc=pl->current->p->getprocid(); 

eventqueue->enqueue(tempevent); 

return ; 


}; 


previous  =  readynodelist->current; 


//Returns  true  if  the  given  node  is  already  in  the  ready  node  list 
boolean  scheduler::member(int  num){ 
if  (readynodelist->head  !=  NULL) 
for(readynodelist->current=readynodelist->head; 
readynodelist->current; 

readynodelist->current=readynodelist->current->nextitem) 
if  (readynodelist->current->nodeitem->geteid()==num) 
return  true; 

return  false; 
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//Prints  the  ready  node  list 
void  scheduler::printreadylist(){ 
cout «  "«««  "; 

for(readynodelist->current=readynodelist->head; 
readynodelist->current; 

readynodebst->current=readynodelist->current->nextitem) 
cout  «  readynodelist->current->nodeitem->nid  «  "  "; 

cout «  "»»»\n"; 


//Prints  the  free  processor  list 
void  scheduler::printproclist(){ 
cout «  "«««  "; 

for  (freeproclist->current=freeproclist->head; 
freeproclist->c  urrent; 

freeproclist->current=  freeproclist->current->nextitem) 
cout «  freeproclist->current->nodeitem->nid  «  "  "; 


cout «  "»»»\n"; 

}; 


122 


123 


//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  PNQUEUE  CLASS  header  fde  (Priority  Queue  For  integer  node. 

//  Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 

#include  "node.h" 
#ifndef  PNQUEUE_H 
#define  PNQUEUE_H 

class  pnqueuef 

public: 

pnqueue(); 

~pnqueue(); 

void  enqueue(intnode*); 

intnode*  dequeue(); 

//private: 

struct  item  { 
intnode  *nodeitem; 
item  *nextitem; 

}; 

item  *head, 
*current; 


}; 

#endif 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  PNQUEUE  CLASS  source  file. 

//  Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 

#include  "pnqueue.h" 
#include  <iostream.h> 

//Constructor 
pnqueue: :  pnqueue()  { 

head  =  NULL; 

current  =  NULL; 


//Destructor 

pnqueue ::  ~pnqueue(){ 

delete  head; 

delete  current; 

head  =  NULL; 

current  =  NULL; 


//Enqueues  the  given  integer  node  to  queue 
void  pnqueue  ::  enqueue(intnode  *e)  { 

item  *tempnode=new  item; 

item  *previous=head; 
tempnode->nodeitem=e; 

if  (head  =  NULL) 

c  urrent=head=tempnode; 
else{ 

current=  head; 

while  ((current->nextitem!=NULL)  && 
(current->nodeitem->getpriority()<=e->getpriority())){ 
previous  =  current; 
current  =  current->nextitem; 

}; 

if  ((current->nodeitem->getpriority()  >  e->getpriorityO)&& 
(current  !=  NULL)&&(current!=head)){ 
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previous->nextitem=tempnode; 
tempnode->nextitem=current; 

I 

else{ 

if((current->nextitem=NULL)  && 

(current->nodeitem->getpriorityO  <=  e->getpriority()))  { 
current->nextitem  =  tempnode; 


I 


else{ 

current  =  head; 
head  =  tempnode; 
head->nextitem  =  current; 

}; 


}; 


}; 


//Returns  integer  node  from  queue 
intnode  *  pnqueue  ::  dequeue(){ 
item*  temp; 
temp=  head; 
if  (head  !=  NULL)  { 
head=head->nextitem; 
current  =  head; 
return  temp->nodeitem; 


I: 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  PQUEUE  CLASS  header  file(Priority  queue  for  events). 

//  Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 


#include  "event.h" 
#ifndefPQUEUE_H 
#defme  PQUEUE_H 
class  pqueue{ 

public: 

pqueue(); 

~pqueue(); 

void  enqueue(event*); 

void  printeqO; 

event*  dequeue(); 

boolean  empty 0; 

private: 

struct  it{ 

event  *eventitem; 

it  *nextitem; 


it  *head, 
♦current; 


#endif 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description    :  PQUEUE  CLASS  source  file. 

//  Date  :  12  November  1992 

// Last  Revised    :  03  January  1993 


#include  "pqueue.h" 
#include  <iostream.h> 

//constructor 
pqueue::pqueueO{ 

head  =  NULL; 

current  =  NULL; 

}; 

//Destructor 
pqueue ::  ~pqueue(){ 

delete  head; 

delete  current; 

head  =  NULL; 

current  =  NULL; 


//Enqueues  the  given  event  according  its  priority 
void  pqueue  ::  enqueue(event  *e)  { 

it  *tempnode=new  it; 

it  *previous=head; 
tempnode->eventitem=e; 

if  (head  =  NULL) 

current=head=tempnode; 
else{ 

current=  head; 

while  ((current->nextitem!=NULL)  && 
(current->eventitem->getpriorityO<=e->getpriority())){ 
previous  =  current; 
current  =  current->nextitem; 

}; 

if  ((current->eventitem->getpriority()  >  e->getpriority())&& 
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(current  !=  NULL)&&(current!=head)){ 
previous->nextitem=tempnode; 
tempnode->nextitem=current; 

} 
else{ 

if((current->nextitem=NULL)  && 

(current->eventitem->getpriority()  <=  e->getpriority())){ 
current->nextitem  =  tempnode; 

1 

else{ 

current  =  head; 
head  =  tempnode; 
head->nextitem  =  current; 


}: 


//Dequeues  the  event  from  the  top  of  the  queue 
event  *  pqueue  ::  dequeue(){ 

it*  temp; 

temp=  head; 

head=head->nextitem ; 

current  =  head; 

return  temp->eventitem; 

}; 

//Returns  true  if  the  Queue  is  empty 
boolean  pqueue::  empty(){ 
if  (head==NULL) 

return  true; 
else 
return  false; 


//Prints  the  queue 
void  pqueue:  :printeqO{ 

cout «  "<  "; 

for  (current  =  head;current;current  =  current->nextitem) 
cout «  current->eventitem->geteventname() «  '  '; 

cout «  ">  \n"; 

}; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description    :  NODE  CLASS  header  file. 

//  Date  :  12  November  1992 

// Last  Revised    :  03  January  1993 

#include  <iostream.h> 

#ifndefNODE_H 
#define  NODE_H 
class  intnode{ 
public: 

intnode(); 
int  getpriorityO; 

int  geteid(); 

void  setnode(int  ,int); 
friend  ostream&  operator«(ostream&,intnode&); 
//  private: 

int  nid, 
priority; 

}; 
#endif; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  NODE  CLASS  source  file. 

//  Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 

#include  "node.h" 

//Constructor 
intnode::intnode(){ 
nid  =0; 
priority  =  0; 


//Returns  node  priority 
int  intnode::getpriority(){ 
return  priority; 


//Returns  node  id 
int  intnode::geteid(){ 
return  nid; 


//Set  node  with  id  and  prty 

void  intnode::setnode(int  id,int  prty){ 

nid  =  id; 

priority  =  prty; 


//Prints  a  node 

ostream&  operator«(ostream&  os,  intnode&  e){ 

os  «  "Event  ID:  "«e.nid; 

os  «  endl; 

os  «  "priority  :"  «  e.priority; 

os «  endl; 

return  os; 

}; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  Integer  List  Class  header  file. 

//Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 

#include  "global.h" 
#ifndefILIST_H 
#define  ILIST_H 

class  intlist{ 
public: 

intlist(); 

-intlistO; 

void  addtolist(int); 

boolean  finditem(int ); 

friend  ostream&  operator«(ostream&,intlist&); 

//private: 

struct  intnode{ 
int  number; 
intnode  *nextnode; 

}; 

intnode  *head, 
*current; 

}; 

#endif 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  Integer  List  Class  source  file. 

//Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 

#include<iostream.h> 
#include  "ilist.h" 

//Contructor 
intlist::intlist(){ 

head  =  NULL; 

current  =  NULL; 


//Destructor 
intUst::~intlist(){ 

delete  head; 

delete  current; 

head  =  NULL; 

current  =  NULL; 


//If  given  integer  is  in  list  returns  true 
boolean  intlist::finditem(int  num){ 
boolean  result=false; 
if  (head  =NULL) 
return  result; 
else 
for(current=head;current->nextnode;current  =  current->nextnode) 
if(current->number  ==  num) 
result=true; 
return  result; 


//Adds  the  given  integer  to  the  list 
void  indist;:addtolist(int  num){ 
if(head==NULL){ 

head  =  new  intnode; 

head->number  =  num; 

current=head; 
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I 

else{ 

for(current=head;current->nextnode;cuiTent=current->nextnode); 
current->nextnode=new  intnode; 
current->nextnode->number=num; 
current  =  current->nextnode; 


//Prints  the  integer  list 

ostream&  operator«(ostream&  os  jntlist&  ilist)  { 
os  «  '<'  «  "  "; 
for  (ilist.current  =  ilist.head:ilist.current; 

ilistcurrent  =  ilist.current->nextnode) 
os  «  ilist.current->number  «  "  "; 
os  «  '>'  «  endl; 
return  os; 

}; 
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APPENDIX  C:  Graph  Restructure  Source  Code 


//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  CNODE  CLASS  header  file. 

//  Date  :  10  March  1993 

// Last  Revised    :  13  March  1993 


class  cnode{//This  class  is  used  to  represent  a  space  that  is 
//assigned  to  a  graph  node. 

public  : 
cnode(){ 
id=0; 
start  =  0; 
finish  =  0; 

}; 

cnode(int  a){ 
id=0; 
start  =  0; 
finish  =  a; 

}; 


int  id; 
int  start, 
finish; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description    :  CYLINDER  CLASS  header  file. 

//  Date  :  10  March  1993 

// Last  Revised    :  13  March  1993 


#include  "nodelist.h" 
#include  "nlist.h" 
#include  "qlist.h" 


class  cylinder  {//This  class  is  used  to  represent  a  cylinder 
public: 

cylinderO; 

~cylinder(); 

void  initialize_cylinder(); 

void  cylinder_assignment(); 

void  cylinder:  :initialize_times(); 

int  findjatest_end_parent(int); 

boolean  map_cylinder(); 


struct  cyl_slice{ 
nodelist  *slice; 
nodelist  *el; 

}; 

cyl_slice  cylin[20]; 
int  circum; 
int  ps; 

nlist  *gnodelist, 
*sortedlist; 
Qlist  *gqueuelist; 


1; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description    :  Cylinder  Class  Source  file. 

//Date  :  10  March  1993 

//  Last  Revised    :  13  March  1993 


#include  "cylinder.h" 
#include  <iostream.h> 

//Cylinder  class  constructor 
cylinder::cylinder()  { 
intc; 

int  ps  =  0; 
int  circum  =  0; 
gnodelist  =  new  nlist; 
sortedlist=new  nlist; 
gqueuelist  =  new  Qlist; 
for(c=0;c<20;c++){ 
cylin[c].slice  =  NULL; 
cylin[c].el  =  NULL; 

}; 
}; 

//Cylinder  class  destructor 
cylinder::~cylinder(){ 
int  c; 

delete  gnodelist; 
delete  gqueuelist; 
for(c=0;c<20;c++){ 

delete  cylin[c]. slice; 

delete  cylin[c].el; 

cylin[c]. slice  =  NULL; 

cylin[c].el  =  NULL; 

>; 

gnodelist  =  NULL; 
gqueuelist  =  NULL; 

); 

//Initialize  the  cylinder  to  empty  cylinder 
void  cylinder:  :initialize_cylinder(){ 

int  c; 

for(c=0;c<20;c++){ 
delete  cylin[c]. slice; 
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delete  cylinfc]. el; 
cylin[c].slice  =  new  nodelist; 
cylin[c].el  =  new  nodelist(circum); 

1; 
I: 

//Clears  the  assigned  execution  times  when  mapping  attemp  is  not 

//succesfull 

void  cylinder:  :initialize_times(){ 

for  (gnodelist->current=gnodelist->head; 

gnodelist->current; 

gnodelist->current=gnodelist->current->nextitem){ 

gnodelist->current->element->start=0; 

gnodelist->current->element->finish=0; 


//Finds  the  latest  end  parent  for  a  given  node  and  returns  it 
int  cylinder: :find_latest_end_parent(int  num){ 
int  max=0; 
gnode*  tempnode, 
*  tempnode2; 
tempnode=gnodelist->getnode(num); 

for(tempnode->parentlist->current=tempnode->parentlist->head; 
tempnode->parentlist->current; 

tempnode->parentlist->current=tempnode->parendist->current->nextnode){ 
tempnode2=gnodelist->getnode(tempnode->parendist->current->number); 
if  (max<tempnode2->finish) 
max  =  int(tempnode2->finish); 

}; 

return  max; 

}; 

//Maps  the  cylinder  according  to  its  topology 
void  cylinder:  :cylinder_assignment  0{ 

boolean  flag; 

fstream  cyl; 

double  percent; 

int     cjiumnodes; 

c  =  gnodelist->sort_topologically(gqueuelist,sortedlist); 

gnodelist  =  sortedlist; 

flag  =  map_cylinder(); 

while  (!  flag)  { 
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}; 


cout «  "I  COULD  NOT  FIND  ANY  SOLUTION  WITH  "; 
cout «  circum  «  "An"; 

cout  «  "I  NEED  LARGER  CIRCUMFERENCE.  WILL  YOU  GIVE  ME  AW 
cout  «  "PERCENT  THAT  I  CAN  INCREASE  THE  SIZE  OF  CYLINDERS"; 
cout «  "PERCENT  :  "; 
cin  »  percent; 
cout  «  '  WHANK  YOU  NOW  I  AM  TRYING  TO  FIND  A  SOLUTIONS"; 

circum  =  int(circum  +  circum  *  percent); 

initialize_cylinder(); 

initialize_times(); 

flag=map_cylinder(); 

}; 

cyl.open("cyl.dat"  ,ios::out); 
for(c=0;c<ps;c-H-){ 
numnodes  =  0; 
for  (cylin[c].slice->current=cylin[c].slice->head; 

cylin[c].slice->current; 

cylin[c].slice->current=cylin[c].slice->ciuTent->nextitem){ 

numnodes++; 

cout «  cylin[c].slice->current->element->id«"  "; 

cout «  cylin[c].slice->current->element->start«"  "; 

cout «  cylin[c].slice->current->element->fuiish«endl; 

}; 

cout «  endl; 

cyl «  numnodes«endl; 
for(cylin[c].slice->current=cylin[c].slice->head; 

cylin[c].slice->current; 

cylin[c].slice->current=cylin[c].slice->current->nextitem){ 

cyl «  cylin[c].slice->current->element->id«"  "; 

}; 

cyl  «endl; 

}: 

cout «  circum«endl; 

cyl  «  circum«endl; 


//Tries  to  find  a  solution  for  mapping  and  called  by  cylider  assignment 
//function 

boolean  cylinder: :map_cylinder(){ 
nitem  *tptr. 
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cnode  *tempspace, 

*tempcnode; 
boolean  found  1  =  false; 
boolean  found2  =  false; 
boolean  found3  =  false; 

int  minstartl  =  circum; 
int  minstart2  =  circum; 
int  minstart3  =  circum; 

int  t, 

tl, 

t2, 

t3, 

t4, 

t5, 

t6; 
intcnt,sl,s2,s3,sid,c; 
int  count=0; 

for  (gnodelist->current  =  gnodelist->head; 
gnodelist->current; 

gnodelist->current  =  gnodelist-x;urrent->nextitem)  { 
if  (gnodelist->current->element->ntype=instruction)  { 
tptr  =  gnodelist->current; 

t  =  find_latest_end_parent(gnodelist->current->element->nodeid); 
gnodelist->current=tptr; 
for  (cnt=0;cnt<ps;cnt++) 
for  (cylin[cnt].el->current=cylin[cnt].el->head; 
cylin[cnt]  .el->current; 

cylin[cnt].el->current=cylin[cnt].el->current->nextitem){ 
if  ((cylin[cnt].el->current->element->start>=t)&& 
(cylin[cnt].el->current->element->finish>= 
cylin[cnt].el->current->element->start  + 
gnodelist->current->element->exectime)) 
if  (cylin[cnt].el->current->element->start<minstartl){ 
minstartl  =  cylin[cnt].el->current->element->start; 
found  1  =  true; 

sid  =  cylin[cnt].el->current->element->id; 
tl  =  cylin[cnt].el->current->element->start; 
t2  =  cylin[cnt].el->current->element->finish; 
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si  =cnt; 

}; 

if  ((cyun[cnt].el->current->element->start<t)&& 
(cylin[cnt].el->current->element->finish  >=t  + 
gnodelist->current->element->exectime)) 
if  (cylin[cnt].el->current->element->start<minstart3){ 

minstart3  =  cylin[cnt].el->current->element->start; 

found3  =  true; 

sid  =  cylin[cnt].el->current->element->id; 

t5  =  cylin[cnt].el->current->element->start; 

t6  =  cylin[cnt].el->current->element->finish; 

s3  =  cnt; 
}; 
if  ((cylin[cnt].el->current->element->start+ 
gnodelist->current->element->exectime)<= 
cylin[cnt].el->current->element->finish) 
if  (cy  lin  [cnt]  .el->current->element->start<m  instart2)  { 

minstart2=cylin[cnt].el->current->element->start; 

sid  =  cylin[cnt].el->current->element->id; 

s2  =  cnt; 

found2  =  true; 

t3  =  cylin[cnt].el->current->element->start; 

t4  =  cytin[cnt].el->current->element->finish; 

}; 


I: 


if(foundl){ 
tempcnode  =  new  cnode; 

tempcnode->id  =  gnodelist->current->element->nodeid; 
tempcnode->start  =  tl; 

tempcnode->finish  =  tl  +  gnodelist->current->element->exectime; 
gnodelist->currcnt->element->start=t  1 ; 
gnodelist->current->element->finish=tempcnode->finish; 
cylin[sl].slice->insert(tempcnode); 
cylin[sl].el->remove(tl); 
if(tl<t){ 

tempspace  =  new  cnode; 

tempspace->id  =  ++count; 

tern  pspace->  start  =  tl; 
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tempspace->finish=  t; 
cylin[sl].el->insert(tempspace); 

}; 

if  (tempcnode->finish  <  t2){ 
tempspace  =  new  cnode; 
tempspace->id  =  ++count; 
tempspace->start  =  tempcnode->finish; 
tempspace->finish=t2; 
cylin[sl].el->insert(  tempspace); 

}; 

I*  for  (cylin[sl].el->current=cylin[sl].el->head; 

cylin[sl].el->current; 

cylin[sl].el->current=cylin[sl].el->current->nextitem){ 
cout «  cylin[sl].el->current->element->start «  "  "; 
cout «  cylin[sl].el->current->element->finish«endl; 


found  1  =  false; 
found2  =  false; 
found3  =  false; 
minstartl  =  circum; 
minstart2  =  circum; 
minstart3  =  circum; 

I 
else 

if(found3){ 
tempcnode  =  new  cnode; 

tempcnode->id  =  gnodelist->current->element->nodeid; 
tempcnode->start  =  t; 

tempcnode->finish  =  t  +  gnodelist->current->element->exectime; 
gnodelist->current->element->start=t; 
gnodelist->current->element->finish=tempcnode->finish; 
cylin[s3].slice->insert(tempcnode); 
if  (tempcnode->id=26) 

cout « t «"  "«t5«"  "«t6«endl; 
cylin[s3].el->remove(t5); 
if(t5<t){ 

tempspace  =  new  cnode; 

tempspace->id  =  -H-count; 

tempspace->start  =  t5; 
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tempspace->finish=  t; 

cylin[s3].el->insert(  tempspace); 
}; 
if  (tempcnode->finish  <  t6){ 

tempspace  =  new  cnode; 

tempspace->id  =  ++count; 

tempspace->  start  =  tempcnode->finish; 

tempspace->finish=t6; 

cylin[s3].el->insert(  tempspace); 
}; 

found  1  =  false; 
found2  =  false; 
found3  =  false; 
minstartl  =  circum; 
minstart2  =  circum; 
minstart3  =  circum; 

} 

else 

if(found2){ 

tempcnode  =  new  cnode; 

tempcnode->id  =  gnodelist->current->element->nodeid; 
tempcnode->start  =  t3; 

tempcnode->finish  =  t3  +  gnodelist->current->element->exectime; 
gnodelist->current->element->start=tl; 
gnodelist->current->element->finish=tempcnode->finish; 
if  (tempcnode->id=26) 

cout « t «"  "«t3«"  "«t4«endl; 
cylin[s2].slice->insert(  tempcnode); 
cylin[s2].el->remove(t3); 
if  (tempcnode-> finish  <  t4){ 

tempspace  =  new  cnode; 

tempspace->id  =  ++count; 

tempspace->start  =  tempcnode->finish; 

tempspace->fmish=t4; 

cylin[s2].el->insert(  tempspace); 

}; 

found  1  =  false; 
found2  =  false; 
found3  =  false; 
minstartl  =  circum; 
minstart2  =  circum; 
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minstart3  =  circum; 
} 
else 

return  false; 


cout  «  "CYLINDER  FRAGMANTATION  \n"; 
for  (c=0;c<ps;c++){ 

for  (cylin[c].el->current=cylin[c].el->head; 
cylin  [c]  .el->current; 

cylin[c].el->current=cylin[c].el->current->nextitem){ 
cout «  cylin[c].el->current->element->id«"  "; 
cout «  "start....:  "«cylin[c].el->current->element->start; 
cout «  "finish....:  "«cylin[c].el->current->element->finish; 
cout «  endl; 

}; 

cout<<"****************************************************W'" 

}; 

return  true; 


I; 


main(){ 

int  tottime; 

f stream  myfile; 

myfile.open("simdata",ios::in); 

cylinder  *c  =  new  cylinder; 

cout «  "Enter  Cylinder  Circumference  :"; 

cin  »  c->circum; 

cout «  c->circum; 

cout « 'VEnter  Processor  Number      :"; 

cin  »  c->ps; 

c->initialize_cylinder(); 

tottime  =  c->gnodelist->loadnodes(myfile); 

c->gqueuelist->loadqueues(myfile,c->gnodelist); 

c->cylinder_assignmentO: 

}; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  ARCNODE  CLASS  header  fUe. 

//  Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 


class  arcnodef 
public: 

int  sourcenodeid, 

sinknodeid, 

initialjength, 

threshold, 

production, 

consumption, 

capacity; 
arcnode(){ 

sourcenodeid  =  0; 

sinknodeid   =  0; 

initial_length=0; 

threshold     =0; 

production    =0; 

consumption   =0; 

capacity      =0; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  ARCNODE  CLASS  header  fde. 

//  Date  :  12  November  1992 

// Last  Revised    :  03  January  1993 


#include  "arcnode.h" 
#include  "global.h" 
#ifndef  ARCLIST_H 
#defme  ARCLIST  H 


class  arc  list  { 
public: 
arclistO;  //constructor 

~arclist();         //destructor 
boolean  is_already_exist(int,  int); 
void  addtolist(arcnode*); 

//  private : 

struct  sitem{ 

arcnode  *element; 
sitem     *nextitem; 


sitem  *head, 
*current; 


}; 
#endif 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  ARCLIST  CLASS  source  file. 

//Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 


#include  <iostream.h> 
#include  "arclist.h" 

//Constructor 
arc  list::  arc  listOI 

head  =  NULL; 

current  =  NULL; 


//Destructor 

arc  list:  :~arclist(){ 

delete  head; 

delete  current; 

head  =  NULL; 

current  =  NULL; 


boolean  arclist::is_already_exist(int  nrjnt  ns){ 

for(current=head;current;current=current->nextitem) 
if  ((current->element->sourcenodeid=ns)&& 
(current->element->sinknodeid==nr)) 
return  true; 


return  false; 


}; 


void  arclist::addtolist(arcnode*  an){ 
sitem*  tempn; 
tempn  =  new  sitem; 
tempn->element=an; 

if(head==NULL) 
head  =  current  =  tempn; 
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else{ 
for  (current=head;current->nextitem;current=current->nexti  tern); 
current->nextitem=tempn; 
current=tempn; 

}; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description     :  CYLINDER  CLASS  header  fUe.This  used  for  index  assignment  and  dependency 

//  arc  creation 

//  Date  :  12  November  1992 

// Last  Revised   :  03  January  1993 

#include  "clist.h" 
#include  "arclist.h" 
class  cylinder  { 
public: 
struct  slice { 

int  slicenum; 

clist*  nodelist; 

slice  *nextslice; 


cylinder(){ 

head  =  NULL; 
current  =  NULL; 


~cylinder(){ 
delete  head; 
delete  current; 
head  =  NULL; 
current  =  NULL; 

cnode*  getnode(int); 
cnode*  find_latest(double); 
cnode*  find_latest_start(double); 
void  find_RC_arcs(int); 
void  start_after_start(int); 
void  start_after_finish(int); 
void  assign_indices(intont); 
slice  *head, 
*current; 
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//  Author         :  Cem  Akin 

//  Advisor        :  Amr  Zaky 

//  Description    :  CYLINDER  CLASS  source  file.This  used  for  index  assignment  and  dependency 

//  arc  creation. 

//  Date  :  12  November  1992 

//  Last  Revised    :  03  January  1993 

#include  "cylinder.h" 

#include  "nlist.h" 

#include  "qlist.h" 

#include  "mlist.h" 

#include  "plist.h" 

nlist  *gnodelist; 
Qlist  *gqueuelist; 

int  numprocs, 
numqueues, 
numnodes, 
nummemory, 
cyl_circum; 

cnode*  cylinder: :getnode(int  nid){ 
for(current=head;current;current=CuiTent->nextslice) 
for(current->nodelist->current=current->nodelist->head; 
current->nodelist->current; 

current->nodelist->current=current->nodelist->current->nextitem) 
if  (current->nodelist->c  urrent->element->  nodeid==nid) 
return  current->nodelist->current->element; 
return  NULL; 


void  cylinder::assign_indices(int  nictint  index)  { 

gnode  *tql, 

*tq2; 
cnode  *tcql, 

*tcq2; 


Queueltem  *tempqueue; 
intlist  *inputqslst. 


*inqs, 
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*outqs, 
*outputqslst; 


inputqslst=new  intlist; 
outputqslst=  new  intlist; 


tql  =  gnodelist->getnode(nid); 

if  (tql->ntype==instmction){ 

tcql=getnode(nid); 

cout «  nid  «" "«index«endl; 

tcql->index  =  index; 

tcql->indexed  =  true; 

inqs=tq  1  ->getinputqueuelist(); 

outqs=tq  1  ->getoutputqueuelist(); 

for  (inqs->current=inqs->head; 
inqs->current; 

inqs->current=inqs->cuiTent->nextnode) 
inputqslst->addtolist(inqs->current->number); 


for  (outqs->current=outqs->head; 
outqs->current; 

outqs->current=outqs->current->nextnode) 
outputqslst->addtolist(outqs->current->number); 

for  (inputqslst->current  =  inputqslst->head;inputqslst->current;inputqslst->current=inputqslst- 
>current->nextnode)  { 

tempqueue=gqueuelist->getqueue(inputqslst->current->number); 
tq2=gnodelist->getnode(tempqueue->nodein); 

if  (tq2->ntype==instruction){ 
tcq2=getnode(tempqueue->nodein); 
if(!(tcq2->indexed)) 
if  (tcq2->finishexec>tcql->startexec) 

assign_indices(tcq2->nodeidjndex+ 1); 
else 
assign_indices(tcq2->nodeid,index); 

}; 
}; 
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for  (outputqslst->current  =  outputqslst->head;ourputqslst->current;outputqslst->current=outputqslst- 
>current->nextnode){ 

tempqueue=gqueuelist->getqueue(outputqslst->current->number); 
tq2=gnodelist->getnode(tempqueue->nodeout); 
if  (tq2->ntype==instruction){ 
tcq2=getnode(tempqueue->nodeout); 
if((!(tcq2->indexed))lltcq2->index>=tcql->index) 
if  (tcq2->startexec<tcql->finishexec) 

assign_indices(tcq2->nodeid,index- 1 ); 
else 
assign_indices(tcq2->nodeid,index); 

}; 

}; 


cnode*  cylinder: :find_latest(double  t){ 
double  max=0.0; 
cnode*  temp; 

for  (current=head;current;current=current->next5  lice) 
for(current->nodelist->current=current->nodelist->head; 
current->nodelist->current; 

current->nodelist->current=current->nodelist->current->nextitem){ 
if(t==0){ 
if(current->nodelist->cuiTent->element->finishexec  >  max){ 
max  =  current->nodelist->current->element->finishexec; 
temp  =  current->nodelist->current->element; 

}; 
} 
else{ 

if((current->nodelist->current->element->finishexec  <=  t)&& 
(current->nodelist->current->element->finishexec  >  max)){ 
max  =  current->nodelist->current->element->finishexec; 
temp  =  current->nodelist->current->element; 

h 

}; 
}; 

if  (max=0) 
for(current=head;current;current=current->nextslice) 
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for(current->nodelist->current=current->nodeIist->head; 
current->nodelist->current; 

curcent->nodelist->current=current->nodelist->current->nextitem) 
if(current->nodetist->current->element->finishexec  >  max){ 
max  =  current->nodelist->current->element->finishexec; 
temp  =  current->nodelist->current->element; 


return  temp; 


cnode*  cylinder: :find_latest_start(double  t){ 
double  max=0.0; 
cnode*  temp; 

for(current=head;current;current=current->nextslice) 
for(current->nodelist->current=current->nodelist->head; 
current->nodelist->current; 

current->nodelist->current=current->nodelist->current->nextitem){ 
if(t==0){ 
if(current->nodelist->current->element->startexec  >  max){ 
max  =  current->nodeust->current->element->startexec; 
temp  =  current->nodelist->current->element; 


else{ 

if((current->nodelist->current->element->startexec  <  t)&& 
(current->nodelist->current->element->startexec  >  max)){ 
max  =  current->nodetist->current->element->startexec; 
temp  =  current->nodelist->current->element; 

}; 
}; 
}; 

return  temp; 


void  cylinder: :start_after_finish(int  gnum){ 
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int  i, 

j; 

intlist*  nolist; 
cnode  *tempcnodel, 

*tempcnode2; 
arcnode*  temparc; 
arc  list*  arc  1st; 
fstream  arcdata,datafile; 
arcdata.openC'tokens",ios:  :out); 
arclst  =  new  arclist; 
nolist  =  new  intlist; 

for  (current=head;current;current=current->nextslice) 
for(current->nodelist->current=current->nodelist->head; 
current->nodelist->current; 

current->nodelist->current=current->nodelist->current->nextitem) 
nolist->addtolist(current->nodelist->current->element->nodeid); 

for  (nolist->current=nolist->head;nolist->current; 
nolist->current=nolist->current->nextnode){ 
tempcnodel=getnode(nolist->current->number); 
i  =  tempcnodel->index; 

tempcnode2=find_latest(tempcnodel->startexec); 
j  =  tempcnode2->index; 

if ( !  (arclst->is_already_exist(tempcnode  1 ->nodeid,tempcnode2->nodeid)))  { 
if  ((tempcnodel->startexec==0)ll 
(tempcnode2->finishexec==cyl_circum)) 

j-j-i; 

temparc  =  new  arcnode; 
temparc->sourcenodeid=tempcnode2->nodeid; 
temparc->sinknodeid  =tempcnodel->nodeid; 
if(i>=j){ 

temparc->initial_length=i-j; 

temparc->threshold  =  1; 

temparc->consumption=  1; 

temparc->producrion=  1 ; 

temparc->capacity  =100; 

} 
else 

if(i<j){ 

temparc->initial_length=0; 
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temparc->threshold     =j-i+l; 
temparc->consumption    =1; 
temparc->production     =1; 
temparc->capacity      =100; 


arclst->addtolist(temparc); 

}; 


gnum++; 

datafde.open("simdata",ios::outlios::app); 
for  (arclst->current=arclst->head; 

arclst->current; 

arclst->current=arclst->current->nextitern){ 

datafde  «  gnum«  "  "; 

datafile  «  0  «  "   "; 

datafile  «  arclst->current->element->sourcenodeid  «  "   "; 

datafile  «  arclst->current->element->sinknodeid  «  " 

datafde  «  arclst->current->element->threshold  «  "   "; 

datafde  «  arclst->current->element->initial_length  «  "   "; 

datafde  «  arclst->current->element->consumption  «  "   "; 

datafde  «  100«  endl; 

gnum++; 

arcdata  «  arclst->current->element->sourcenodeid  «  "  "; 
arcdata  «  arclst->current->element->sinknodeid  «  "  "; 
arcdata  «  arclst->current->element->initial_length  «  "  "; 
arcdata  «  arclst->current->element->threshold  «  "  "; 
arcdata  «  arclst->current->element->consumption  «  endl; 

}; 

arcdataxloseO; 

datafile.closeO; 


void  cylinder::start_after_start(int  gnum){ 
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int  i, 

j; 

intlist*  nolist; 
cnode  *tempcnodel, 

*tempcnode2; 
arcnode*  temparc; 
arc  list*  arc  1st; 
fstream  arcdata,datafile; 
arcdata.open("tokens",ios:  :out); 
arclst  =  new  arclist; 
nolist  =  new  intlist; 

for  (current=head;current;current=current->nextslice) 
for(current->nodelist->current=current->nodelist->head; 
current->nodelist->current; 

current->nodelist->current=current->nodelist->current->nextitem) 
nolist->addtolist(current->nodelist->current->element->nodeid); 

for  (nolist->cun-ent=nolist->head;nolist->current; 
nolist->current=nolist->current->nextnode){ 
tempcnodel=getnode(nolist->current->number); 
i  =  tempcnodel->index; 

tempcnode2=find_latest_start(tempcnode  1  ->startexec); 
j  =  tempcnode2->index; 

if(!(arclst->is_already_exist(tempcnodel->nodeid,tempcnode2->nodeid))){ 
if  (tempcnodel->startexec==0) 

j-j-i; 

temparc  =  new  arcnode; 
temparc->sourcenodeid=tempcnodel->nodeid; 
temparc->sinknodeid  =tempcnode2->nodeid; 

if(i>j){ 
temparc->initial_length=0; 
temparc->threshold  =  1; 
temparc->consumption  =  1; 
temparc->production  =  1; 
temparc->capacity  =  i-j; 

I 

else 

if(i<j){ 
temparc->initial_length=j-i+ 1 ; 
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temparc->threshold     =1; 
temparc->consumption   =1; 
temparc->production     =1; 
temparc->capacity      =1; 

} 

else{ 

temparc->initial_length=  1 ; 
temparc->threshold     =1; 
temparc->consumption   =1; 
temparc->production     =1; 
temparc->capacity      =1; 

}; 
arclst->addtolist(temparc); 


gnum++; 

datafde.open("simdata",ios::outlios::app); 
for  (arclst->current=arclst->head; 

arclst->current; 

arclst->current=arclst->current->nextitem){ 

datafile  «  gnum«  "  "; 

datafde«0«"   "; 

datafile  «  arclst->current->element->sourcenodeid  «  "   "; 

datafile  «  arclst->current->element->sinknodeid  «  " 

datafde  «  arclst->current->element->threshold  «  "   "; 

datafde  «  arclst->current->element->initial_length  «  "   "; 

datafile  «  arclst->current->element->consumption  «  "   "; 

datafde  «  arclst->current->element->capacity«  endl; 

gnum++; 

arcdata  «  arclst->current->element->sourcenodeid  «  "  "; 
arcdata  «  arclst->current->element->sinknodeid  «  "  "; 
arcdata  «  arclst->current->element->initial_length  «  "  "; 
arcdata  «  arclst->current->element->threshold  «  "  "; 
arcdata  «  arclst->current->element->consuniption  «  endl; 

}; 

arcdataxloseO; 
datafde.close(); 
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void  cylinder::find_RC_arcs(int  gnum){ 
int  choice; 

cout  «  "CHOICE  ONE  OF  THE  FOLLOWINGVi\nv 
cout «  "1.. START  AFTER  FINISH  (SAF)\n"; 
cout «  "2..START  AFTER  START  (SAS)\n\n": 
cout «  "Choice  :  "; 
cin  »  choice; 
if  (choice  ==  1) 

start_after_finish(gnum); 
else 

start_after_start(gnum); 


main(){ 
int  numassignednodes, 

temp, 

dummy, 

loop, 

loop2; 
mlist  *  ml; 
ml  =  new  mlist; 
plist  *  pi; 
pi  =  new  plist; 
gnodelist  =  new  nlist; 
gqueuelist=  new  Qlist; 
gnode  *  tempnode; 
cnode  *  tempcnode; 
cylinder-slice  *  tempslice; 
clist  *  templist; 
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cylinder  *c  =  new  cylinder; 
int  gnum; 

fstream  datafile,config,cyldata,pic,mem; 

datafile.open("simdata",ios::in); 

config.open("machine",ios::in); 

cyldata.open("cyl.map",ios::in); 

mem.open("memodules",ios::in); 

nummemory  =  ml->loadmemory(config); 

numprocs  =  pl->loadprocessors(config); 

dummy  =  gnodelist->loadnodes(datafile,mem,5); 

gnum=gqueuelist->loadqueues(datafde,mem,gnodelist); 

cout «  *gnodelist; 

datafde.close(); 

mem.close(); 

gnodelist->sort_topologically(gqueuelist); 

tempnode  =  new  gnode; 

for  (loop  =  0;  loop  <  numprocs;loop++){ 

cyldata  »  numassignednodes; 

tempslice  =  new  cylinderrslice; 

templist  =  new  clist; 

for  (loop2  =  0;loop2  <  numassignednodes;loop2++){ 
cyldata  » temp; 
tempnode  =  new  gnode; 
tempcnode=  new  cnode; 
tempnode  =  gnodelist->getnode(temp); 
tempcnode->nodeid  =  tempnode->nodeid; 
tempcnode->order  =  tempnode->order; 
tempcnode->exectime=  tempnode->exectime; 
templist->insert(tempcnode); 


tempslice->slicenum  =  loop+1; 
tempslice->nodelist  =  templist; 
tempslice->nextslice=  NULL; 
if(c->head  =  NULL) 

c->head=c->current=tempslice; 
else{ 

c->current->nextslice  =  tempslice; 
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c->current  =  tempslice; 

}; 
(; 

cyldata»cyl_circum; 

cyldata.close(); 

double  time; 

for  (c->current=c->head;c->current:c->current=c->current->nextslice){ 
time  =0.0; 
for(c->current->nodelist->current=c->current->nodelist->head; 

c->current->nodelist->current; 

c->current->nodelist->current=c->current->nodelist->current->nextitem){ 

c->current->nodelist->current->element->indexed=false; 

c->current->nodeust->current->element->index=0; 

c->current->nodelist->current->element->startexec=time; 

time=c->current->nodelist->current->element->exectime+time; 

c->current->nodelist-x;urrent->element->finishexec=time; 

}; 
I; 

for  (c->current=c->head;c->current;c->current=c->current->nextslice)  { 
for(c->current->nodelist->current=c->current->nodelist->head; 
c->current->nodelist->current; 

c->current->nodelist->current=c->current->nodelist->current->nextitem){ 
cout«c->current->nodelist->current->element->nodeid«  "  "; 
cout«c->current->nodelist->current->element->index«""; 
cout«  c->current->nodelist->current->element->startexec«"  "; 
cout«  c->current->nodelist->cuiTent->element->finishexec«"  "; 

}; 

cout «  endl«endl; 

}; 

c->assign_indices(c->head->nodetist->head->element->nodeid,0); 

c->fmd_RC_arcs(gnum); 

cyldataopen("cyl.map"40s::out); 

pic.open("picture"jos::out); 

int  level  1=0; 

intalt=l; 

int  previous  =  0; 

for  (c->current=c->head;c->current;c->current=c->current->nextslice){ 
for(c->current->nodelist->current=c->current->nodelist->head; 
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c->current->nodelist->current; 

c->current->nodelist->current=c->current->nodelist->current->nextitem){ 
pic«previous«"  "; 
if  (alt) 

pic«  level  l«endl; 
else 

pic«  level  l+100«endl; 
pic«int(c->current->nodelist->current->element->finishexec/1000)«""; 
if  (alt) 

pic«  level  l«endl; 
else 

pic«  levell+100«endl; 
if  (alt) 

alt  =  0; 
else 

alt=l; 
cyldata«c->current->nodelist->current->element->nodeid«  "  "; 
cyldata«c->current->nodelist->current->element->index«""; 
cyldata«  c->current->nodelist->current->element->startexec<<"  "; 
cyldata«  c->current->nodelist->current->element->finishexec«"  "; 
previous  =int(c->current->nodelist->current->element->finishexec/1000); 
cyldata«"   "; 

previous  =  0; 
if(alt) 

pic  «  0  «  "  "«levell+100«  endl; 
else 

pic  «  0  «  "  "«levell  «  endl; 
if  (alt) 

alt  =  0; 
else 

alt=l; 
level  1  =  level  1  +  100; 
c  y  ldata«endl«endl; 

}; 

cyldata.close(); 

}; 
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APPENDIX  D:  Interrelation  of  the  Files  in  PIPDAFS  and  GR 


graph.dat 


machineconfig.dat 


File  Name:  map 

Description:  Maps  the  cylinder 

Input  Files:  graph.dat, 

machinecofig.dat 
Output  File:  cyl.dat 


cyl.dat 


File  Name:  restructure 
Description:  Assign  indices  and 
create  dependencies 

Input  Files:  graph.dat, 

machinecofig.dat, 
cyl.dat 

Output  Files:  graph.dat  (restructured), 
tokens 


graph.dat 
(restructured) 


cyl.dat 


File  Name:sim 

Description:  Simulates  the  graph 
for  a  given  data  period 

Input  Files:  graph.dat 

machineconfig.dat 

Output  Files:grphutil, 

grphexectime, 

grphresptime, 

grphthroughput, 

grphinstlenvar, 

logfile(optinal) 


userdat 


File  Name:simulate 
Description:  User  interface 
Output  File:  userdat 
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